
!$OPENAD XXX File_start [OAD_intrinsics.f90]
MODULE oad_intrinsics
use OAD_active
use w2f__types
IMPLICIT NONE
SAVE
!
!     **** Statements ****
!
END MODULE

C$OPENAD XXX File_start [all_globals_mod.f]
      MODULE all_globals_mod
      use OAD_active
      use w2f__types
      IMPLICIT NONE
      SAVE
C
C     **** Statements ****
C
      END MODULE
C#########################################################
C This file is part of OpenAD released under the LGPL.   #
C The full COPYRIGHT notice can be found in the top      #
C level directory of the OpenAD distribution             #
C#########################################################
C
C$OPENAD XXX File_start [head.f]
      SUBROUTINE head(X01, X02, X03, X04, X05, X06, Y01, Y02, Y03, Y04, 
     +Y05, Y06, Y07, Y08, Y09, Y10, Y11, Y12, Y13, Y14, Y15, Y16, Y17 , 
     +Y18, Y19, Y20, Y21, Y22, Y23, Y24, Y25, Y26, Y27, Y28)
          use OAD_tape
          use OAD_rev

C original arguments get inserted before version
C         ! and declared here together with all local variables
C         ! generated by xaifBooster

      use OAD_active
      use w2f__types
      use oad_intrinsics
      use oad_intrinsics
      use oad_intrinsics
      IMPLICIT NONE
C
C     **** Parameters and Result ****
C
      type(active) :: X01
      type(active) :: X02
      type(active) :: X03
      type(active) :: X04
      type(active) :: X05
      type(active) :: X06
      type(active) :: Y01
      type(active) :: Y02
      type(active) :: Y03
      type(active) :: Y04
      type(active) :: Y05
      type(active) :: Y06
      type(active) :: Y07
      type(active) :: Y08
      type(active) :: Y09
      type(active) :: Y10
      type(active) :: Y11
      type(active) :: Y12
      type(active) :: Y13
      type(active) :: Y14
      type(active) :: Y15
      type(active) :: Y16
      type(active) :: Y17
      type(active) :: Y18
      type(active) :: Y19
      type(active) :: Y20
      type(active) :: Y21
      type(active) :: Y22
      type(active) :: Y23
      type(active) :: Y24
      type(active) :: Y25
      type(active) :: Y26
      type(active) :: Y27
      type(active) :: Y28
C
C     **** Local Variables and Functions ****
C
      REAL(w2f__8) A
      REAL(w2f__8) AB
      type(active) :: ADJ_M0
      type(active) :: ADJ_M1
      type(active) :: ADJ_M2
      type(active) :: ADJ_M3
      REAL(w2f__8) B
      REAL(w2f__8) BM1
      type(active) :: D00
      type(active) :: D01
      type(active) :: D03
      type(active) :: D11
      type(active) :: D12
      type(active) :: F
      REAL(w2f__8) FOUR3RD
      type(active) :: G
      type(active) :: GG
      type(active) :: G_OBJ0
      type(active) :: G_OBJ1
      type(active) :: G_OBJ2
      type(active) :: G_OBJ3
      type(active) :: G_OBJ4
      type(active) :: G_OBJ5
      type(active) :: H_OBJ0
      type(active) :: H_OBJ1
      type(active) :: H_OBJ10
      type(active) :: H_OBJ11
      type(active) :: H_OBJ12
      type(active) :: H_OBJ13
      type(active) :: H_OBJ14
      type(active) :: H_OBJ15
      type(active) :: H_OBJ16
      type(active) :: H_OBJ17
      type(active) :: H_OBJ18
      type(active) :: H_OBJ19
      type(active) :: H_OBJ2
      type(active) :: H_OBJ20
      type(active) :: H_OBJ3
      type(active) :: H_OBJ4
      type(active) :: H_OBJ5
      type(active) :: H_OBJ6
      type(active) :: H_OBJ7
      type(active) :: H_OBJ8
      type(active) :: H_OBJ9
      type(active) :: LOC1
      type(active) :: LOC2
      type(active) :: M00
      type(active) :: M01
      type(active) :: M02
      type(active) :: M03
      type(active) :: M11
      type(active) :: M12
      type(active) :: M13
      type(active) :: M22
      type(active) :: M23
      type(active) :: M33
      type(active) :: MATR0
      type(active) :: MATR1
      type(active) :: MATR2
      type(active) :: MATR3
      type(active) :: OBJ
      type(active) :: R00
      type(active) :: R02
      type(active) :: R03
      type(active) :: R11
      type(active) :: R12
      type(active) :: R13
      REAL(w2f__8) R22
      REAL(w2f__8) R33
      REAL(w2f__8) SQRT3
      REAL(w2f__8) THIRD
      REAL(w2f__8) TSQRT3
      REAL(w2f__8) TWO3RD
      REAL(w2f__8) TWOSQRT3
      REAL(w2f__8) OpenAD_Symbol_0
      REAL(w2f__8) OpenAD_Symbol_1
      REAL(w2f__8) OpenAD_Symbol_10
      REAL(w2f__8) OpenAD_Symbol_100
      REAL(w2f__8) OpenAD_Symbol_101
      REAL(w2f__8) OpenAD_Symbol_102
      REAL(w2f__8) OpenAD_Symbol_103
      REAL(w2f__8) OpenAD_Symbol_104
      REAL(w2f__8) OpenAD_Symbol_105
      REAL(w2f__8) OpenAD_Symbol_106
      REAL(w2f__8) OpenAD_Symbol_107
      REAL(w2f__8) OpenAD_Symbol_108
      REAL(w2f__8) OpenAD_Symbol_109
      REAL(w2f__8) OpenAD_Symbol_11
      REAL(w2f__8) OpenAD_Symbol_110
      REAL(w2f__8) OpenAD_Symbol_111
      REAL(w2f__8) OpenAD_Symbol_112
      REAL(w2f__8) OpenAD_Symbol_113
      REAL(w2f__8) OpenAD_Symbol_114
      REAL(w2f__8) OpenAD_Symbol_115
      REAL(w2f__8) OpenAD_Symbol_116
      REAL(w2f__8) OpenAD_Symbol_117
      REAL(w2f__8) OpenAD_Symbol_118
      REAL(w2f__8) OpenAD_Symbol_119
      REAL(w2f__8) OpenAD_Symbol_12
      REAL(w2f__8) OpenAD_Symbol_120
      REAL(w2f__8) OpenAD_Symbol_121
      REAL(w2f__8) OpenAD_Symbol_122
      REAL(w2f__8) OpenAD_Symbol_123
      REAL(w2f__8) OpenAD_Symbol_124
      REAL(w2f__8) OpenAD_Symbol_125
      REAL(w2f__8) OpenAD_Symbol_126
      REAL(w2f__8) OpenAD_Symbol_127
      REAL(w2f__8) OpenAD_Symbol_128
      REAL(w2f__8) OpenAD_Symbol_129
      REAL(w2f__8) OpenAD_Symbol_13
      REAL(w2f__8) OpenAD_Symbol_130
      REAL(w2f__8) OpenAD_Symbol_131
      REAL(w2f__8) OpenAD_Symbol_132
      REAL(w2f__8) OpenAD_Symbol_133
      REAL(w2f__8) OpenAD_Symbol_134
      REAL(w2f__8) OpenAD_Symbol_135
      REAL(w2f__8) OpenAD_Symbol_136
      REAL(w2f__8) OpenAD_Symbol_137
      REAL(w2f__8) OpenAD_Symbol_138
      REAL(w2f__8) OpenAD_Symbol_139
      REAL(w2f__8) OpenAD_Symbol_14
      REAL(w2f__8) OpenAD_Symbol_140
      REAL(w2f__8) OpenAD_Symbol_141
      REAL(w2f__8) OpenAD_Symbol_142
      REAL(w2f__8) OpenAD_Symbol_143
      REAL(w2f__8) OpenAD_Symbol_144
      REAL(w2f__8) OpenAD_Symbol_145
      REAL(w2f__8) OpenAD_Symbol_146
      REAL(w2f__8) OpenAD_Symbol_147
      REAL(w2f__8) OpenAD_Symbol_148
      REAL(w2f__8) OpenAD_Symbol_149
      REAL(w2f__8) OpenAD_Symbol_15
      REAL(w2f__8) OpenAD_Symbol_150
      REAL(w2f__8) OpenAD_Symbol_151
      REAL(w2f__8) OpenAD_Symbol_152
      REAL(w2f__8) OpenAD_Symbol_153
      REAL(w2f__8) OpenAD_Symbol_154
      REAL(w2f__8) OpenAD_Symbol_155
      REAL(w2f__8) OpenAD_Symbol_156
      REAL(w2f__8) OpenAD_Symbol_157
      REAL(w2f__8) OpenAD_Symbol_158
      REAL(w2f__8) OpenAD_Symbol_159
      REAL(w2f__8) OpenAD_Symbol_16
      REAL(w2f__8) OpenAD_Symbol_160
      REAL(w2f__8) OpenAD_Symbol_161
      REAL(w2f__8) OpenAD_Symbol_162
      REAL(w2f__8) OpenAD_Symbol_163
      REAL(w2f__8) OpenAD_Symbol_164
      REAL(w2f__8) OpenAD_Symbol_165
      REAL(w2f__8) OpenAD_Symbol_166
      REAL(w2f__8) OpenAD_Symbol_167
      REAL(w2f__8) OpenAD_Symbol_168
      REAL(w2f__8) OpenAD_Symbol_169
      REAL(w2f__8) OpenAD_Symbol_17
      REAL(w2f__8) OpenAD_Symbol_170
      REAL(w2f__8) OpenAD_Symbol_171
      REAL(w2f__8) OpenAD_Symbol_172
      REAL(w2f__8) OpenAD_Symbol_173
      REAL(w2f__8) OpenAD_Symbol_174
      REAL(w2f__8) OpenAD_Symbol_175
      REAL(w2f__8) OpenAD_Symbol_176
      REAL(w2f__8) OpenAD_Symbol_177
      REAL(w2f__8) OpenAD_Symbol_178
      REAL(w2f__8) OpenAD_Symbol_179
      REAL(w2f__8) OpenAD_Symbol_18
      REAL(w2f__8) OpenAD_Symbol_180
      REAL(w2f__8) OpenAD_Symbol_181
      REAL(w2f__8) OpenAD_Symbol_182
      REAL(w2f__8) OpenAD_Symbol_183
      REAL(w2f__8) OpenAD_Symbol_19
      REAL(w2f__8) OpenAD_Symbol_2
      REAL(w2f__8) OpenAD_Symbol_20
      REAL(w2f__8) OpenAD_Symbol_21
      REAL(w2f__8) OpenAD_Symbol_22
      REAL(w2f__8) OpenAD_Symbol_23
      REAL(w2f__8) OpenAD_Symbol_24
      REAL(w2f__8) OpenAD_Symbol_25
      REAL(w2f__8) OpenAD_Symbol_26
      REAL(w2f__8) OpenAD_Symbol_27
      REAL(w2f__8) OpenAD_Symbol_28
      REAL(w2f__8) OpenAD_Symbol_29
      REAL(w2f__8) OpenAD_Symbol_3
      REAL(w2f__8) OpenAD_Symbol_30
      REAL(w2f__8) OpenAD_Symbol_31
      REAL(w2f__8) OpenAD_Symbol_32
      REAL(w2f__8) OpenAD_Symbol_33
      REAL(w2f__8) OpenAD_Symbol_34
      REAL(w2f__8) OpenAD_Symbol_35
      REAL(w2f__8) OpenAD_Symbol_36
      REAL(w2f__8) OpenAD_Symbol_37
      REAL(w2f__8) OpenAD_Symbol_38
      REAL(w2f__8) OpenAD_Symbol_39
      REAL(w2f__8) OpenAD_Symbol_4
      REAL(w2f__8) OpenAD_Symbol_40
      REAL(w2f__8) OpenAD_Symbol_41
      REAL(w2f__8) OpenAD_Symbol_42
      REAL(w2f__8) OpenAD_Symbol_43
      REAL(w2f__8) OpenAD_Symbol_44
      REAL(w2f__8) OpenAD_Symbol_45
      REAL(w2f__8) OpenAD_Symbol_46
      REAL(w2f__8) OpenAD_Symbol_47
      REAL(w2f__8) OpenAD_Symbol_48
      REAL(w2f__8) OpenAD_Symbol_49
      REAL(w2f__8) OpenAD_Symbol_5
      REAL(w2f__8) OpenAD_Symbol_50
      REAL(w2f__8) OpenAD_Symbol_51
      REAL(w2f__8) OpenAD_Symbol_52
      REAL(w2f__8) OpenAD_Symbol_53
      REAL(w2f__8) OpenAD_Symbol_54
      REAL(w2f__8) OpenAD_Symbol_55
      REAL(w2f__8) OpenAD_Symbol_56
      REAL(w2f__8) OpenAD_Symbol_57
      REAL(w2f__8) OpenAD_Symbol_58
      REAL(w2f__8) OpenAD_Symbol_59
      REAL(w2f__8) OpenAD_Symbol_6
      REAL(w2f__8) OpenAD_Symbol_60
      REAL(w2f__8) OpenAD_Symbol_61
      REAL(w2f__8) OpenAD_Symbol_62
      REAL(w2f__8) OpenAD_Symbol_63
      REAL(w2f__8) OpenAD_Symbol_64
      REAL(w2f__8) OpenAD_Symbol_65
      REAL(w2f__8) OpenAD_Symbol_66
      REAL(w2f__8) OpenAD_Symbol_67
      REAL(w2f__8) OpenAD_Symbol_68
      REAL(w2f__8) OpenAD_Symbol_69
      REAL(w2f__8) OpenAD_Symbol_7
      REAL(w2f__8) OpenAD_Symbol_70
      REAL(w2f__8) OpenAD_Symbol_71
      REAL(w2f__8) OpenAD_Symbol_72
      REAL(w2f__8) OpenAD_Symbol_73
      REAL(w2f__8) OpenAD_Symbol_74
      REAL(w2f__8) OpenAD_Symbol_75
      REAL(w2f__8) OpenAD_Symbol_76
      REAL(w2f__8) OpenAD_Symbol_77
      REAL(w2f__8) OpenAD_Symbol_78
      REAL(w2f__8) OpenAD_Symbol_79
      REAL(w2f__8) OpenAD_Symbol_8
      REAL(w2f__8) OpenAD_Symbol_80
      REAL(w2f__8) OpenAD_Symbol_81
      REAL(w2f__8) OpenAD_Symbol_82
      REAL(w2f__8) OpenAD_Symbol_83
      REAL(w2f__8) OpenAD_Symbol_84
      REAL(w2f__8) OpenAD_Symbol_85
      REAL(w2f__8) OpenAD_Symbol_86
      REAL(w2f__8) OpenAD_Symbol_87
      REAL(w2f__8) OpenAD_Symbol_88
      REAL(w2f__8) OpenAD_Symbol_89
      REAL(w2f__8) OpenAD_Symbol_9
      REAL(w2f__8) OpenAD_Symbol_90
      REAL(w2f__8) OpenAD_Symbol_91
      REAL(w2f__8) OpenAD_Symbol_92
      REAL(w2f__8) OpenAD_Symbol_93
      REAL(w2f__8) OpenAD_Symbol_94
      REAL(w2f__8) OpenAD_Symbol_95
      REAL(w2f__8) OpenAD_Symbol_96
      REAL(w2f__8) OpenAD_Symbol_97
      REAL(w2f__8) OpenAD_Symbol_98
      REAL(w2f__8) OpenAD_Symbol_99
      REAL(w2f__8) OpenAD_acc_0
      REAL(w2f__8) OpenAD_acc_1
      REAL(w2f__8) OpenAD_acc_10
      REAL(w2f__8) OpenAD_acc_11
      REAL(w2f__8) OpenAD_acc_12
      REAL(w2f__8) OpenAD_acc_13
      REAL(w2f__8) OpenAD_acc_14
      REAL(w2f__8) OpenAD_acc_15
      REAL(w2f__8) OpenAD_acc_16
      REAL(w2f__8) OpenAD_acc_17
      REAL(w2f__8) OpenAD_acc_18
      REAL(w2f__8) OpenAD_acc_19
      REAL(w2f__8) OpenAD_acc_2
      REAL(w2f__8) OpenAD_acc_20
      REAL(w2f__8) OpenAD_acc_21
      REAL(w2f__8) OpenAD_acc_22
      REAL(w2f__8) OpenAD_acc_23
      REAL(w2f__8) OpenAD_acc_24
      REAL(w2f__8) OpenAD_acc_25
      REAL(w2f__8) OpenAD_acc_26
      REAL(w2f__8) OpenAD_acc_27
      REAL(w2f__8) OpenAD_acc_28
      REAL(w2f__8) OpenAD_acc_29
      REAL(w2f__8) OpenAD_acc_3
      REAL(w2f__8) OpenAD_acc_30
      REAL(w2f__8) OpenAD_acc_31
      REAL(w2f__8) OpenAD_acc_32
      REAL(w2f__8) OpenAD_acc_33
      REAL(w2f__8) OpenAD_acc_34
      REAL(w2f__8) OpenAD_acc_35
      REAL(w2f__8) OpenAD_acc_4
      REAL(w2f__8) OpenAD_acc_5
      REAL(w2f__8) OpenAD_acc_6
      REAL(w2f__8) OpenAD_acc_7
      REAL(w2f__8) OpenAD_acc_8
      REAL(w2f__8) OpenAD_acc_9
      REAL(w2f__8) OpenAD_aux_0
      REAL(w2f__8) OpenAD_aux_1
      REAL(w2f__8) OpenAD_aux_10
      REAL(w2f__8) OpenAD_aux_11
      REAL(w2f__8) OpenAD_aux_12
      REAL(w2f__8) OpenAD_aux_13
      REAL(w2f__8) OpenAD_aux_14
      REAL(w2f__8) OpenAD_aux_15
      REAL(w2f__8) OpenAD_aux_16
      REAL(w2f__8) OpenAD_aux_17
      REAL(w2f__8) OpenAD_aux_18
      REAL(w2f__8) OpenAD_aux_19
      REAL(w2f__8) OpenAD_aux_2
      REAL(w2f__8) OpenAD_aux_20
      REAL(w2f__8) OpenAD_aux_21
      REAL(w2f__8) OpenAD_aux_22
      REAL(w2f__8) OpenAD_aux_23
      REAL(w2f__8) OpenAD_aux_24
      REAL(w2f__8) OpenAD_aux_25
      REAL(w2f__8) OpenAD_aux_26
      REAL(w2f__8) OpenAD_aux_27
      REAL(w2f__8) OpenAD_aux_28
      REAL(w2f__8) OpenAD_aux_29
      REAL(w2f__8) OpenAD_aux_3
      REAL(w2f__8) OpenAD_aux_4
      REAL(w2f__8) OpenAD_aux_5
      REAL(w2f__8) OpenAD_aux_6
      REAL(w2f__8) OpenAD_aux_7
      REAL(w2f__8) OpenAD_aux_8
      REAL(w2f__8) OpenAD_aux_9
      REAL(w2f__8) OpenAD_lin_0
      REAL(w2f__8) OpenAD_lin_1
      REAL(w2f__8) OpenAD_lin_10
      REAL(w2f__8) OpenAD_lin_100
      REAL(w2f__8) OpenAD_lin_101
      REAL(w2f__8) OpenAD_lin_102
      REAL(w2f__8) OpenAD_lin_103
      REAL(w2f__8) OpenAD_lin_104
      REAL(w2f__8) OpenAD_lin_105
      REAL(w2f__8) OpenAD_lin_106
      REAL(w2f__8) OpenAD_lin_107
      REAL(w2f__8) OpenAD_lin_108
      REAL(w2f__8) OpenAD_lin_109
      REAL(w2f__8) OpenAD_lin_11
      REAL(w2f__8) OpenAD_lin_110
      REAL(w2f__8) OpenAD_lin_111
      REAL(w2f__8) OpenAD_lin_112
      REAL(w2f__8) OpenAD_lin_113
      REAL(w2f__8) OpenAD_lin_114
      REAL(w2f__8) OpenAD_lin_115
      REAL(w2f__8) OpenAD_lin_116
      REAL(w2f__8) OpenAD_lin_117
      REAL(w2f__8) OpenAD_lin_118
      REAL(w2f__8) OpenAD_lin_119
      REAL(w2f__8) OpenAD_lin_12
      REAL(w2f__8) OpenAD_lin_120
      REAL(w2f__8) OpenAD_lin_121
      REAL(w2f__8) OpenAD_lin_122
      REAL(w2f__8) OpenAD_lin_123
      REAL(w2f__8) OpenAD_lin_124
      REAL(w2f__8) OpenAD_lin_125
      REAL(w2f__8) OpenAD_lin_126
      REAL(w2f__8) OpenAD_lin_127
      REAL(w2f__8) OpenAD_lin_128
      REAL(w2f__8) OpenAD_lin_129
      REAL(w2f__8) OpenAD_lin_13
      REAL(w2f__8) OpenAD_lin_130
      REAL(w2f__8) OpenAD_lin_131
      REAL(w2f__8) OpenAD_lin_132
      REAL(w2f__8) OpenAD_lin_133
      REAL(w2f__8) OpenAD_lin_134
      REAL(w2f__8) OpenAD_lin_135
      REAL(w2f__8) OpenAD_lin_136
      REAL(w2f__8) OpenAD_lin_137
      REAL(w2f__8) OpenAD_lin_138
      REAL(w2f__8) OpenAD_lin_139
      REAL(w2f__8) OpenAD_lin_14
      REAL(w2f__8) OpenAD_lin_140
      REAL(w2f__8) OpenAD_lin_141
      REAL(w2f__8) OpenAD_lin_142
      REAL(w2f__8) OpenAD_lin_143
      REAL(w2f__8) OpenAD_lin_144
      REAL(w2f__8) OpenAD_lin_145
      REAL(w2f__8) OpenAD_lin_146
      REAL(w2f__8) OpenAD_lin_147
      REAL(w2f__8) OpenAD_lin_148
      REAL(w2f__8) OpenAD_lin_149
      REAL(w2f__8) OpenAD_lin_15
      REAL(w2f__8) OpenAD_lin_150
      REAL(w2f__8) OpenAD_lin_151
      REAL(w2f__8) OpenAD_lin_152
      REAL(w2f__8) OpenAD_lin_153
      REAL(w2f__8) OpenAD_lin_154
      REAL(w2f__8) OpenAD_lin_155
      REAL(w2f__8) OpenAD_lin_156
      REAL(w2f__8) OpenAD_lin_157
      REAL(w2f__8) OpenAD_lin_158
      REAL(w2f__8) OpenAD_lin_159
      REAL(w2f__8) OpenAD_lin_16
      REAL(w2f__8) OpenAD_lin_160
      REAL(w2f__8) OpenAD_lin_161
      REAL(w2f__8) OpenAD_lin_162
      REAL(w2f__8) OpenAD_lin_163
      REAL(w2f__8) OpenAD_lin_164
      REAL(w2f__8) OpenAD_lin_165
      REAL(w2f__8) OpenAD_lin_166
      REAL(w2f__8) OpenAD_lin_167
      REAL(w2f__8) OpenAD_lin_168
      REAL(w2f__8) OpenAD_lin_169
      REAL(w2f__8) OpenAD_lin_17
      REAL(w2f__8) OpenAD_lin_170
      REAL(w2f__8) OpenAD_lin_171
      REAL(w2f__8) OpenAD_lin_172
      REAL(w2f__8) OpenAD_lin_173
      REAL(w2f__8) OpenAD_lin_174
      REAL(w2f__8) OpenAD_lin_175
      REAL(w2f__8) OpenAD_lin_176
      REAL(w2f__8) OpenAD_lin_177
      REAL(w2f__8) OpenAD_lin_178
      REAL(w2f__8) OpenAD_lin_179
      REAL(w2f__8) OpenAD_lin_18
      REAL(w2f__8) OpenAD_lin_180
      REAL(w2f__8) OpenAD_lin_181
      REAL(w2f__8) OpenAD_lin_182
      REAL(w2f__8) OpenAD_lin_183
      REAL(w2f__8) OpenAD_lin_184
      REAL(w2f__8) OpenAD_lin_185
      REAL(w2f__8) OpenAD_lin_186
      REAL(w2f__8) OpenAD_lin_187
      REAL(w2f__8) OpenAD_lin_188
      REAL(w2f__8) OpenAD_lin_189
      REAL(w2f__8) OpenAD_lin_19
      REAL(w2f__8) OpenAD_lin_190
      REAL(w2f__8) OpenAD_lin_191
      REAL(w2f__8) OpenAD_lin_192
      REAL(w2f__8) OpenAD_lin_193
      REAL(w2f__8) OpenAD_lin_194
      REAL(w2f__8) OpenAD_lin_195
      REAL(w2f__8) OpenAD_lin_196
      REAL(w2f__8) OpenAD_lin_197
      REAL(w2f__8) OpenAD_lin_198
      REAL(w2f__8) OpenAD_lin_199
      REAL(w2f__8) OpenAD_lin_2
      REAL(w2f__8) OpenAD_lin_20
      REAL(w2f__8) OpenAD_lin_200
      REAL(w2f__8) OpenAD_lin_201
      REAL(w2f__8) OpenAD_lin_202
      REAL(w2f__8) OpenAD_lin_203
      REAL(w2f__8) OpenAD_lin_204
      REAL(w2f__8) OpenAD_lin_205
      REAL(w2f__8) OpenAD_lin_206
      REAL(w2f__8) OpenAD_lin_207
      REAL(w2f__8) OpenAD_lin_208
      REAL(w2f__8) OpenAD_lin_209
      REAL(w2f__8) OpenAD_lin_21
      REAL(w2f__8) OpenAD_lin_22
      REAL(w2f__8) OpenAD_lin_23
      REAL(w2f__8) OpenAD_lin_24
      REAL(w2f__8) OpenAD_lin_25
      REAL(w2f__8) OpenAD_lin_26
      REAL(w2f__8) OpenAD_lin_27
      REAL(w2f__8) OpenAD_lin_28
      REAL(w2f__8) OpenAD_lin_29
      REAL(w2f__8) OpenAD_lin_3
      REAL(w2f__8) OpenAD_lin_30
      REAL(w2f__8) OpenAD_lin_31
      REAL(w2f__8) OpenAD_lin_32
      REAL(w2f__8) OpenAD_lin_33
      REAL(w2f__8) OpenAD_lin_34
      REAL(w2f__8) OpenAD_lin_35
      REAL(w2f__8) OpenAD_lin_36
      REAL(w2f__8) OpenAD_lin_37
      REAL(w2f__8) OpenAD_lin_38
      REAL(w2f__8) OpenAD_lin_39
      REAL(w2f__8) OpenAD_lin_4
      REAL(w2f__8) OpenAD_lin_40
      REAL(w2f__8) OpenAD_lin_41
      REAL(w2f__8) OpenAD_lin_42
      REAL(w2f__8) OpenAD_lin_43
      REAL(w2f__8) OpenAD_lin_44
      REAL(w2f__8) OpenAD_lin_45
      REAL(w2f__8) OpenAD_lin_46
      REAL(w2f__8) OpenAD_lin_47
      REAL(w2f__8) OpenAD_lin_48
      REAL(w2f__8) OpenAD_lin_49
      REAL(w2f__8) OpenAD_lin_5
      REAL(w2f__8) OpenAD_lin_50
      REAL(w2f__8) OpenAD_lin_51
      REAL(w2f__8) OpenAD_lin_52
      REAL(w2f__8) OpenAD_lin_53
      REAL(w2f__8) OpenAD_lin_54
      REAL(w2f__8) OpenAD_lin_55
      REAL(w2f__8) OpenAD_lin_56
      REAL(w2f__8) OpenAD_lin_57
      REAL(w2f__8) OpenAD_lin_58
      REAL(w2f__8) OpenAD_lin_59
      REAL(w2f__8) OpenAD_lin_6
      REAL(w2f__8) OpenAD_lin_60
      REAL(w2f__8) OpenAD_lin_61
      REAL(w2f__8) OpenAD_lin_62
      REAL(w2f__8) OpenAD_lin_63
      REAL(w2f__8) OpenAD_lin_64
      REAL(w2f__8) OpenAD_lin_65
      REAL(w2f__8) OpenAD_lin_66
      REAL(w2f__8) OpenAD_lin_67
      REAL(w2f__8) OpenAD_lin_68
      REAL(w2f__8) OpenAD_lin_69
      REAL(w2f__8) OpenAD_lin_7
      REAL(w2f__8) OpenAD_lin_70
      REAL(w2f__8) OpenAD_lin_71
      REAL(w2f__8) OpenAD_lin_72
      REAL(w2f__8) OpenAD_lin_73
      REAL(w2f__8) OpenAD_lin_74
      REAL(w2f__8) OpenAD_lin_75
      REAL(w2f__8) OpenAD_lin_76
      REAL(w2f__8) OpenAD_lin_77
      REAL(w2f__8) OpenAD_lin_78
      REAL(w2f__8) OpenAD_lin_79
      REAL(w2f__8) OpenAD_lin_8
      REAL(w2f__8) OpenAD_lin_80
      REAL(w2f__8) OpenAD_lin_81
      REAL(w2f__8) OpenAD_lin_82
      REAL(w2f__8) OpenAD_lin_83
      REAL(w2f__8) OpenAD_lin_84
      REAL(w2f__8) OpenAD_lin_85
      REAL(w2f__8) OpenAD_lin_86
      REAL(w2f__8) OpenAD_lin_87
      REAL(w2f__8) OpenAD_lin_88
      REAL(w2f__8) OpenAD_lin_89
      REAL(w2f__8) OpenAD_lin_9
      REAL(w2f__8) OpenAD_lin_90
      REAL(w2f__8) OpenAD_lin_91
      REAL(w2f__8) OpenAD_lin_92
      REAL(w2f__8) OpenAD_lin_93
      REAL(w2f__8) OpenAD_lin_94
      REAL(w2f__8) OpenAD_lin_95
      REAL(w2f__8) OpenAD_lin_96
      REAL(w2f__8) OpenAD_lin_97
      REAL(w2f__8) OpenAD_lin_98
      REAL(w2f__8) OpenAD_lin_99
      type(active) :: OpenAD_prp_0
      type(active) :: OpenAD_prp_1
      type(active) :: OpenAD_prp_10
      type(active) :: OpenAD_prp_11
      type(active) :: OpenAD_prp_12
      type(active) :: OpenAD_prp_13
      type(active) :: OpenAD_prp_14
      type(active) :: OpenAD_prp_15
      type(active) :: OpenAD_prp_16
      type(active) :: OpenAD_prp_17
      type(active) :: OpenAD_prp_18
      type(active) :: OpenAD_prp_19
      type(active) :: OpenAD_prp_2
      type(active) :: OpenAD_prp_20
      type(active) :: OpenAD_prp_21
      type(active) :: OpenAD_prp_22
      type(active) :: OpenAD_prp_23
      type(active) :: OpenAD_prp_24
      type(active) :: OpenAD_prp_25
      type(active) :: OpenAD_prp_26
      type(active) :: OpenAD_prp_27
      type(active) :: OpenAD_prp_28
      type(active) :: OpenAD_prp_29
      type(active) :: OpenAD_prp_3
      type(active) :: OpenAD_prp_30
      type(active) :: OpenAD_prp_31
      type(active) :: OpenAD_prp_32
      type(active) :: OpenAD_prp_33
      type(active) :: OpenAD_prp_34
      type(active) :: OpenAD_prp_35
      type(active) :: OpenAD_prp_36
      type(active) :: OpenAD_prp_37
      type(active) :: OpenAD_prp_38
      type(active) :: OpenAD_prp_39
      type(active) :: OpenAD_prp_4
      type(active) :: OpenAD_prp_40
      type(active) :: OpenAD_prp_41
      type(active) :: OpenAD_prp_42
      type(active) :: OpenAD_prp_43
      type(active) :: OpenAD_prp_44
      type(active) :: OpenAD_prp_45
      type(active) :: OpenAD_prp_46
      type(active) :: OpenAD_prp_47
      type(active) :: OpenAD_prp_48
      type(active) :: OpenAD_prp_49
      type(active) :: OpenAD_prp_5
      type(active) :: OpenAD_prp_6
      type(active) :: OpenAD_prp_7
      type(active) :: OpenAD_prp_8
      type(active) :: OpenAD_prp_9


          integer iaddr
          external iaddr
C
C     **** Top Level Pragmas ****
C
C$OPENAD INDEPENDENT(X01)
C$OPENAD INDEPENDENT(X02)
C$OPENAD INDEPENDENT(X03)
C$OPENAD INDEPENDENT(X04)
C$OPENAD INDEPENDENT(X05)
C$OPENAD INDEPENDENT(X06)
C$OPENAD DEPENDENT(Y01)
C$OPENAD DEPENDENT(Y02)
C$OPENAD DEPENDENT(Y03)
C$OPENAD DEPENDENT(Y04)
C$OPENAD DEPENDENT(Y05)
C$OPENAD DEPENDENT(Y06)
C$OPENAD DEPENDENT(Y07)
C$OPENAD DEPENDENT(Y08)
C$OPENAD DEPENDENT(Y09)
C$OPENAD DEPENDENT(Y10)
C$OPENAD DEPENDENT(Y11)
C$OPENAD DEPENDENT(Y12)
C$OPENAD DEPENDENT(Y13)
C$OPENAD DEPENDENT(Y14)
C$OPENAD DEPENDENT(Y15)
C$OPENAD DEPENDENT(Y16)
C$OPENAD DEPENDENT(Y17)
C$OPENAD DEPENDENT(Y18)
C$OPENAD DEPENDENT(Y19)
C$OPENAD DEPENDENT(Y20)
C$OPENAD DEPENDENT(Y21)
C$OPENAD DEPENDENT(Y22)
C$OPENAD DEPENDENT(Y23)
C$OPENAD DEPENDENT(Y24)
C$OPENAD DEPENDENT(Y25)
C$OPENAD DEPENDENT(Y26)
C$OPENAD DEPENDENT(Y27)
C$OPENAD DEPENDENT(Y28)
C
C     **** Statements ****
C

         if (our_rev_mode%plain) then
C original function
C$OPENAD XXX Template ad_template.f
      A = 5.0D-01
      B = (-1.0D00)
      AB = (A * B)
      SQRT3 = 5.77350258827209472656D-01
      TSQRT3 = 1.15470051765441894531D00
      TWOSQRT3 = 1.15470051765441894531D00
      THIRD = 3.33333343267440795898D-01
      TWO3RD = 6.66666686534881591797D-01
      FOUR3RD = 1.33333337306976318359D00
      BM1 = (-2.0D00)
      MATR0%v = (X02%v-X01%v)
      MATR1%v = (SQRT3*(X03%v*2.0D00-X02%v-X01%v))
      MATR2%v = (X05%v-X04%v)
      MATR3%v = (SQRT3*(X06%v*2.0D00-X05%v-X04%v))
      M03%v = (MATR0%v*MATR3%v)
      M12%v = (MATR1%v*MATR2%v)
      G%v = (M03%v-M12%v)
      D00%v = (M03%v*2.0D00)
      D11%v = (M12%v*2.0D00)
      M00%v = (MATR0%v*MATR0%v)
      M11%v = (MATR1%v*MATR1%v)
      M22%v = (MATR2%v*MATR2%v)
      M33%v = (MATR3%v*MATR3%v)
      D12%v = (M00%v*M33%v)
      D03%v = (M11%v*M22%v)
      F%v = (D03%v+D12%v)
      LOC1%v = (A*(1.0D00/G%v))
      OBJ%v = (F%v*LOC1%v)
      LOC2%v = (AB*(1.0D00/(G%v*G%v)))
      GG%v = (AB*B*(1.0D00/(G%v*G%v*G%v)))
      G%v = (F%v*LOC2%v)
      F%v = (LOC1%v*2.0D00)
      ADJ_M0%v = (F%v*MATR0%v+G%v*MATR3%v)
      ADJ_M1%v = (F%v*MATR1%v-G%v*MATR2%v)
      ADJ_M2%v = (F%v*MATR2%v-G%v*MATR1%v)
      ADJ_M3%v = (F%v*MATR3%v+G%v*MATR0%v)
      LOC1%v = (ADJ_M1%v*SQRT3)
      G_OBJ0%v = (-(ADJ_M0%v+LOC1%v))
      G_OBJ1%v = (ADJ_M0%v-LOC1%v)
      G_OBJ2%v = (LOC1%v*2.0D00)
      LOC1%v = (ADJ_M3%v*SQRT3)
      G_OBJ3%v = (-(ADJ_M2%v+LOC1%v))
      G_OBJ4%v = (ADJ_M2%v-LOC1%v)
      G_OBJ5%v = (LOC1%v*2.0D00)
      LOC2%v = (LOC2%v*2.0D00)
      R00%v = (D00%v*LOC2%v+GG%v*M33%v)
      R11%v = (D11%v*LOC2%v+GG%v*M22%v)
      R22 = (D11%v*LOC2%v+GG%v*M11%v)
      R33 = (D00%v*LOC2%v+GG%v*M00%v)
      M01%v = (MATR0%v*MATR1%v)
      M02%v = (MATR0%v*MATR2%v)
      M12%v = (MATR1%v*MATR2%v)
      M13%v = (MATR1%v*MATR3%v)
      M23%v = (MATR2%v*MATR3%v)
      D01%v = (LOC2%v*(M02%v+M13%v))
      LOC1%v = (R11%v*THIRD)
      F%v = (TWOSQRT3*(D01%v+GG%v*M23%v))
      G%v = (LOC1%v+R00%v)
      H_OBJ1%v = (LOC1%v-R00%v)
      H_OBJ0%v = (F%v+G%v)
      H_OBJ3%v = (G%v-F%v)
      LOC1%v = (-(R11%v*TWO3RD))
      H_OBJ2%v = (LOC1%v-F%v)
      H_OBJ4%v = (F%v+LOC1%v)
      H_OBJ5%v = (FOUR3RD*R11%v)
      LOC1%v = (R00%v*THIRD)
      F%v = (TWOSQRT3*(D01%v+GG%v*M01%v))
      G%v = (LOC1%v+R11%v)
      H_OBJ16%v = (LOC1%v-R11%v)
      H_OBJ15%v = (F%v+G%v)
      H_OBJ18%v = (G%v-F%v)
      LOC1%v = (-(R00%v*TWO3RD))
      H_OBJ17%v = (LOC1%v-F%v)
      H_OBJ19%v = (F%v+LOC1%v)
      H_OBJ20%v = (FOUR3RD*R00%v)
      LOC1%v = (LOC2%v*(M01%v+M23%v))
      R13%v = (LOC1%v+GG%v*M02%v)
      R02%v = (LOC1%v+GG%v*M13%v)
      R03%v = (D03%v*LOC2%v+GG%v*M03%v)
      R12%v = (D12%v*LOC2%v+GG%v*M12%v)
      G%v = (-(R13%v*TWO3RD))
      F%v = (R03%v*TWOSQRT3)
      H_OBJ8%v = (G%v-F%v)
      H_OBJ11%v = (F%v+G%v)
      F%v = (R12%v*TWOSQRT3)
      H_OBJ12%v = (G%v-F%v)
      H_OBJ13%v = (F%v+G%v)
      H_OBJ14%v = (R13%v*1.2D+01)
      G%v = (FOUR3RD*R02%v)
      F%v = (SQRT3*(R03%v+R12%v))
      H_OBJ10%v = (G%v-F%v)
      H_OBJ6%v = (F%v+G%v)
      G%v = (R02%v*TWO3RD)
      F%v = (SQRT3*(R03%v-R12%v))
      H_OBJ9%v = (G%v-F%v)
      H_OBJ7%v = (F%v+G%v)
      MATR0%v = (G_OBJ1%v-G_OBJ0%v)
      MATR1%v = (SQRT3*(G_OBJ2%v*2.0D00-G_OBJ1%v-G_OBJ2%v))
      MATR2%v = (G_OBJ4%v-G_OBJ3%v)
      MATR3%v = (SQRT3*(G_OBJ5%v*2.0D00-G_OBJ4%v-G_OBJ3%v))
      M03%v = (MATR0%v*MATR3%v)
      M12%v = (MATR1%v*MATR2%v)
      G%v = (M03%v-M12%v)
      D00%v = (M03%v*2.0D00)
      D11%v = (M12%v*2.0D00)
      M00%v = (MATR0%v*MATR0%v)
      M11%v = (MATR1%v*MATR1%v)
      M22%v = (MATR2%v*MATR2%v)
      M33%v = (MATR3%v*MATR3%v)
      D12%v = (M00%v*M33%v)
      D03%v = (M11%v*M22%v)
      F%v = (D03%v+D12%v)
      LOC1%v = (A*(1.0D00/G%v))
      OBJ%v = (F%v*LOC1%v)
      LOC2%v = (AB*(1.0D00/(G%v*G%v)))
      GG%v = (AB*B*(1.0D00/(G%v*G%v*G%v)))
      G%v = (F%v*LOC2%v)
      F%v = (LOC1%v*2.0D00)
      ADJ_M0%v = (F%v*MATR0%v+G%v*MATR3%v)
      ADJ_M1%v = (F%v*MATR1%v-G%v*MATR2%v)
      ADJ_M2%v = (F%v*MATR2%v-G%v*MATR1%v)
      ADJ_M3%v = (F%v*MATR3%v+G%v*MATR0%v)
      LOC1%v = (ADJ_M1%v*SQRT3)
      G_OBJ0%v = (G_OBJ0%v-ADJ_M0%v-LOC1%v)
      G_OBJ1%v = (ADJ_M0%v+G_OBJ1%v-LOC1%v)
      G_OBJ2%v = (G_OBJ1%v+LOC1%v*2.0D00)
      LOC1%v = (ADJ_M3%v*SQRT3)
      G_OBJ3%v = (G_OBJ3%v-ADJ_M2%v-LOC1%v)
      G_OBJ4%v = (ADJ_M2%v+G_OBJ4%v-LOC1%v)
      G_OBJ5%v = (G_OBJ5%v+LOC1%v*2.0D00)
      LOC2%v = (LOC2%v*2.0D00)
      R00%v = (D00%v*LOC2%v+GG%v*M33%v)
      R11%v = (D11%v*LOC2%v+GG%v*M22%v)
      R22 = (D11%v*LOC2%v+GG%v*M11%v)
      R33 = (D00%v*LOC2%v+GG%v*M00%v)
      M01%v = (MATR0%v*MATR1%v)
      M02%v = (MATR0%v*MATR2%v)
      M12%v = (MATR1%v*MATR2%v)
      M13%v = (MATR1%v*MATR3%v)
      M23%v = (MATR2%v*MATR3%v)
      D01%v = (LOC2%v*(M02%v+M13%v))
      LOC1%v = (R11%v*THIRD)
      F%v = (TWOSQRT3*(D01%v+GG%v*M23%v))
      G%v = (LOC1%v+R00%v)
      H_OBJ1%v = (H_OBJ1%v+LOC1%v-R00%v)
      H_OBJ0%v = (F%v+G%v+H_OBJ0%v)
      H_OBJ3%v = (G%v+H_OBJ3%v-F%v)
      LOC1%v = (-(R11%v*TWO3RD))
      H_OBJ2%v = (H_OBJ2%v+LOC1%v-F%v)
      H_OBJ4%v = (F%v+H_OBJ4%v+LOC1%v)
      H_OBJ5%v = (H_OBJ5%v+FOUR3RD*R11%v)
      LOC1%v = (R00%v*THIRD)
      F%v = (TWOSQRT3*(D01%v+GG%v*M01%v))
      G%v = (LOC1%v+R11%v)
      H_OBJ16%v = (H_OBJ16%v+LOC1%v-R11%v)
      H_OBJ15%v = (F%v+G%v+H_OBJ15%v)
      H_OBJ18%v = (G%v+H_OBJ18%v-F%v)
      LOC1%v = (-(R00%v*TWO3RD))
      H_OBJ17%v = (H_OBJ17%v+LOC1%v-F%v)
      H_OBJ19%v = (F%v+H_OBJ19%v+LOC1%v)
      H_OBJ20%v = (H_OBJ20%v+FOUR3RD*R00%v)
      LOC1%v = (LOC2%v*(M01%v+M23%v))
      R13%v = (LOC1%v+GG%v*M02%v)
      R02%v = (LOC1%v+GG%v*M13%v)
      R03%v = (D03%v*LOC2%v+GG%v*M03%v)
      R12%v = (D12%v*LOC2%v+GG%v*M12%v)
      G%v = (-(R13%v*TWO3RD))
      F%v = (R03%v*TWOSQRT3)
      H_OBJ8%v = (G%v+H_OBJ8%v-F%v)
      H_OBJ11%v = (F%v+G%v+H_OBJ11%v)
      F%v = (R12%v*TWOSQRT3)
      H_OBJ12%v = (G%v+H_OBJ12%v-F%v)
      H_OBJ13%v = (F%v+G%v+H_OBJ13%v)
      H_OBJ14%v = (H_OBJ14%v+R13%v*1.2D+01)
      G%v = (FOUR3RD*R02%v)
      F%v = (SQRT3*(R03%v+R12%v))
      H_OBJ10%v = (G%v+H_OBJ10%v-F%v)
      H_OBJ6%v = (F%v+G%v+H_OBJ6%v)
      G%v = (R02%v*TWO3RD)
      F%v = (SQRT3*(R03%v-R12%v))
      H_OBJ9%v = (G%v+H_OBJ9%v-F%v)
      H_OBJ7%v = (F%v+G%v+H_OBJ7%v)
      Y01%v = OBJ%v
      Y02%v = G_OBJ0%v
      Y03%v = G_OBJ1%v
      Y04%v = G_OBJ2%v
      Y05%v = G_OBJ3%v
      Y06%v = G_OBJ4%v
      Y07%v = G_OBJ5%v
      Y08%v = H_OBJ0%v
      Y09%v = H_OBJ1%v
      Y10%v = H_OBJ2%v
      Y11%v = H_OBJ3%v
      Y12%v = H_OBJ4%v
      Y13%v = H_OBJ5%v
      Y14%v = H_OBJ6%v
      Y15%v = H_OBJ7%v
      Y16%v = H_OBJ8%v
      Y17%v = H_OBJ9%v
      Y18%v = H_OBJ10%v
      Y19%v = H_OBJ11%v
      Y20%v = H_OBJ12%v
      Y21%v = H_OBJ13%v
      Y22%v = H_OBJ14%v
      Y23%v = H_OBJ15%v
      Y24%v = H_OBJ16%v
      Y25%v = H_OBJ17%v
      Y26%v = H_OBJ18%v
      Y27%v = H_OBJ19%v
      Y28%v = H_OBJ20%v
          end if
          if (our_rev_mode%tape) then
C taping
C$OPENAD XXX Template ad_template.f
      A = 5.0D-01
      B = (-1.0D00)
      AB = (A*B)
      SQRT3 = 5.77350258827209472656D-01
      TSQRT3 = 1.15470051765441894531D00
      TWOSQRT3 = 1.15470051765441894531D00
      THIRD = 3.33333343267440795898D-01
      TWO3RD = 6.66666686534881591797D-01
      FOUR3RD = 1.33333337306976318359D00
      BM1 = (-2.0D00)
      MATR0%v = (X02%v-X01%v)
      OpenAD_aux_0 = (X03%v*2.0D00-X02%v-X01%v)
      OpenAD_lin_0 = SQRT3
      MATR1%v = (SQRT3*OpenAD_aux_0)
      MATR2%v = (X05%v-X04%v)
      OpenAD_aux_1 = (X06%v*2.0D00-X05%v-X04%v)
      OpenAD_lin_1 = SQRT3
      MATR3%v = (SQRT3*OpenAD_aux_1)
      OpenAD_lin_2 = MATR3%v
      OpenAD_lin_3 = MATR0%v
      M03%v = (MATR0%v*MATR3%v)
      OpenAD_lin_4 = MATR2%v
      OpenAD_lin_5 = MATR1%v
      M12%v = (MATR1%v*MATR2%v)
      G%v = (M03%v-M12%v)
      D00%v = (M03%v*2.0D00)
      D11%v = (M12%v*2.0D00)
      OpenAD_lin_6 = MATR0%v
      OpenAD_lin_7 = MATR0%v
      M00%v = (MATR0%v*MATR0%v)
      OpenAD_lin_8 = MATR1%v
      OpenAD_lin_9 = MATR1%v
      M11%v = (MATR1%v*MATR1%v)
      OpenAD_lin_10 = MATR2%v
      OpenAD_lin_11 = MATR2%v
      M22%v = (MATR2%v*MATR2%v)
      OpenAD_lin_12 = MATR3%v
      OpenAD_lin_13 = MATR3%v
      M33%v = (MATR3%v*MATR3%v)
      OpenAD_lin_14 = M33%v
      OpenAD_lin_15 = M00%v
      D12%v = (M00%v*M33%v)
      OpenAD_lin_16 = M22%v
      OpenAD_lin_17 = M11%v
      D03%v = (M11%v*M22%v)
      F%v = (D03%v+D12%v)
      OpenAD_aux_2 = (1.0D00/G%v)
      OpenAD_lin_19 = (-(1.0D00/(G%v*G%v)))
      OpenAD_lin_18 = A
      LOC1%v = (A*OpenAD_aux_2)
      OpenAD_lin_20 = LOC1%v
      OpenAD_lin_21 = F%v
      OBJ%v = (F%v*LOC1%v)
      OpenAD_aux_4 = (G%v*G%v)
      OpenAD_aux_3 = (1.0D00/OpenAD_aux_4)
      OpenAD_lin_24 = G%v
      OpenAD_lin_25 = G%v
      OpenAD_lin_23 = (-(1.0D00/(OpenAD_aux_4*OpenAD_aux_4)))
      OpenAD_lin_22 = AB
      LOC2%v = (AB*OpenAD_aux_3)
      OpenAD_aux_5 = (AB*B)
      OpenAD_aux_8 = (G%v*G%v)
      OpenAD_aux_7 = (G%v*OpenAD_aux_8)
      OpenAD_aux_6 = (1.0D00/OpenAD_aux_7)
      OpenAD_lin_28 = OpenAD_aux_8
      OpenAD_lin_30 = G%v
      OpenAD_lin_31 = G%v
      OpenAD_lin_29 = G%v
      OpenAD_lin_27 = (-(1.0D00/(OpenAD_aux_7*OpenAD_aux_7)))
      OpenAD_lin_26 = OpenAD_aux_5
      GG%v = (OpenAD_aux_5*OpenAD_aux_6)
      OpenAD_acc_0 = (OpenAD_lin_19*OpenAD_lin_18)
      OpenAD_acc_1 = (OpenAD_lin_6+OpenAD_lin_7)
      OpenAD_acc_2 = (OpenAD_lin_8+OpenAD_lin_9)
      OpenAD_acc_3 = (OpenAD_lin_10+OpenAD_lin_11)
      OpenAD_acc_4 = (OpenAD_lin_12+OpenAD_lin_13)
      OpenAD_acc_5 = ((OpenAD_lin_28+(OpenAD_lin_30+OpenAD_lin_31)*OpenA
     +D_lin_29)*OpenAD_lin_27*OpenAD_lin_26)
      OpenAD_acc_6 = ((OpenAD_lin_24+OpenAD_lin_25)*OpenAD_lin_23*OpenAD
     +_lin_22)
      double_tape(double_tape_pointer) = OpenAD_acc_1
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_acc_3
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_0
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_1
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_2
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_3
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_4
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_5
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_acc_2
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_acc_4
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_14
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_15
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_16
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_17
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_acc_0
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_20
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_21
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_acc_6
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_acc_5
      double_tape_pointer = double_tape_pointer+1
      OpenAD_lin_32 = LOC2%v
      OpenAD_lin_33 = F%v
      G%v = (F%v*LOC2%v)
      F%v = (LOC1%v*2.0D00)
      OpenAD_lin_34 = MATR0%v
      OpenAD_lin_35 = F%v
      OpenAD_lin_36 = MATR3%v
      OpenAD_lin_37 = G%v
      ADJ_M0%v = (F%v*MATR0%v+G%v*MATR3%v)
      OpenAD_lin_38 = MATR1%v
      OpenAD_lin_39 = F%v
      OpenAD_lin_40 = MATR2%v
      OpenAD_lin_41 = G%v
      ADJ_M1%v = (F%v*MATR1%v-G%v*MATR2%v)
      OpenAD_lin_42 = MATR2%v
      OpenAD_lin_43 = F%v
      OpenAD_lin_44 = MATR1%v
      OpenAD_lin_45 = G%v
      ADJ_M2%v = (F%v*MATR2%v-G%v*MATR1%v)
      OpenAD_lin_46 = MATR3%v
      OpenAD_lin_47 = F%v
      OpenAD_lin_48 = MATR0%v
      OpenAD_lin_49 = G%v
      ADJ_M3%v = (F%v*MATR3%v+G%v*MATR0%v)
      OpenAD_lin_50 = SQRT3
      LOC1%v = (ADJ_M1%v*SQRT3)
      G_OBJ0%v = (-(ADJ_M0%v+LOC1%v))
      G_OBJ1%v = (ADJ_M0%v-LOC1%v)
      G_OBJ2%v = (LOC1%v*2.0D00)
      OpenAD_acc_7 = (2.0D00*OpenAD_lin_34)
      OpenAD_acc_8 = (2.0D00*OpenAD_lin_38)
      OpenAD_acc_9 = (OpenAD_lin_40*INT((-1_w2f__i8)))
      OpenAD_acc_10 = (OpenAD_lin_41*INT((-1_w2f__i8)))
      OpenAD_acc_11 = (2.0D00*OpenAD_lin_42)
      OpenAD_acc_12 = (OpenAD_lin_44*INT((-1_w2f__i8)))
      OpenAD_acc_13 = (OpenAD_lin_45*INT((-1_w2f__i8)))
      OpenAD_acc_14 = (2.0D00*OpenAD_lin_46)
      double_tape(double_tape_pointer) = OpenAD_lin_32
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_33
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_35
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_acc_7
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_36
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_37
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_39
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_acc_8
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_acc_9
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_acc_10
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_43
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_acc_11
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_acc_12
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_acc_13
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_47
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_acc_14
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_48
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_49
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_50
      double_tape_pointer = double_tape_pointer+1
      OpenAD_lin_51 = SQRT3
      LOC1%v = (ADJ_M3%v*SQRT3)
      G_OBJ3%v = (-(ADJ_M2%v+LOC1%v))
      G_OBJ4%v = (ADJ_M2%v-LOC1%v)
      G_OBJ5%v = (LOC1%v*2.0D00)
      LOC2%v = (LOC2%v*2.0D00)
      OpenAD_lin_52 = LOC2%v
      OpenAD_lin_53 = D00%v
      OpenAD_lin_54 = M33%v
      OpenAD_lin_55 = GG%v
      R00%v = (D00%v*LOC2%v+GG%v*M33%v)
      OpenAD_lin_56 = LOC2%v
      OpenAD_lin_57 = D11%v
      OpenAD_lin_58 = M22%v
      OpenAD_lin_59 = GG%v
      R11%v = (D11%v*LOC2%v+GG%v*M22%v)
      R22 = (D11%v*LOC2%v+GG%v*M11%v)
      R33 = (D00%v*LOC2%v+GG%v*M00%v)
      OpenAD_lin_60 = MATR1%v
      OpenAD_lin_61 = MATR0%v
      M01%v = (MATR0%v*MATR1%v)
      OpenAD_lin_62 = MATR2%v
      OpenAD_lin_63 = MATR0%v
      M02%v = (MATR0%v*MATR2%v)
      OpenAD_lin_64 = MATR2%v
      OpenAD_lin_65 = MATR1%v
      M12%v = (MATR1%v*MATR2%v)
      OpenAD_lin_66 = MATR3%v
      OpenAD_lin_67 = MATR1%v
      M13%v = (MATR1%v*MATR3%v)
      OpenAD_lin_68 = MATR3%v
      OpenAD_lin_69 = MATR2%v
      M23%v = (MATR2%v*MATR3%v)
      OpenAD_aux_9 = (M02%v+M13%v)
      OpenAD_lin_70 = OpenAD_aux_9
      OpenAD_lin_71 = LOC2%v
      D01%v = (LOC2%v*OpenAD_aux_9)
      double_tape(double_tape_pointer) = OpenAD_lin_51
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_60
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_61
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_62
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_63
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_64
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_65
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_66
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_67
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_68
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_69
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_52
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_53
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_54
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_55
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_56
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_57
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_58
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_59
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_70
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_71
      double_tape_pointer = double_tape_pointer+1
      OpenAD_lin_72 = THIRD
      LOC1%v = (R11%v*THIRD)
      OpenAD_aux_10 = (D01%v+GG%v*M23%v)
      OpenAD_lin_74 = M23%v
      OpenAD_lin_75 = GG%v
      OpenAD_lin_73 = TWOSQRT3
      F%v = (TWOSQRT3*OpenAD_aux_10)
      G%v = (LOC1%v+R00%v)
      H_OBJ1%v = (LOC1%v-R00%v)
      H_OBJ0%v = (F%v+G%v)
      H_OBJ3%v = (G%v-F%v)
      double_tape(double_tape_pointer) = OpenAD_lin_72
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_74
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_75
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_73
      double_tape_pointer = double_tape_pointer+1
      OpenAD_lin_76 = TWO3RD
      LOC1%v = (-(R11%v*TWO3RD))
      H_OBJ2%v = (LOC1%v-F%v)
      H_OBJ4%v = (F%v+LOC1%v)
      OpenAD_lin_77 = FOUR3RD
      H_OBJ5%v = (FOUR3RD*R11%v)
      OpenAD_acc_15 = (OpenAD_lin_76*INT((-1_w2f__i8)))
      double_tape(double_tape_pointer) = OpenAD_lin_77
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_acc_15
      double_tape_pointer = double_tape_pointer+1
      OpenAD_lin_78 = THIRD
      LOC1%v = (R00%v*THIRD)
      OpenAD_aux_11 = (D01%v+GG%v*M01%v)
      OpenAD_lin_80 = M01%v
      OpenAD_lin_81 = GG%v
      OpenAD_lin_79 = TWOSQRT3
      F%v = (TWOSQRT3*OpenAD_aux_11)
      G%v = (LOC1%v+R11%v)
      H_OBJ16%v = (LOC1%v-R11%v)
      H_OBJ15%v = (F%v+G%v)
      H_OBJ18%v = (G%v-F%v)
      double_tape(double_tape_pointer) = OpenAD_lin_78
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_80
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_81
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_79
      double_tape_pointer = double_tape_pointer+1
      OpenAD_lin_82 = TWO3RD
      LOC1%v = (-(R00%v*TWO3RD))
      H_OBJ17%v = (LOC1%v-F%v)
      H_OBJ19%v = (F%v+LOC1%v)
      OpenAD_lin_83 = FOUR3RD
      H_OBJ20%v = (FOUR3RD*R00%v)
      OpenAD_acc_16 = (OpenAD_lin_82*INT((-1_w2f__i8)))
      double_tape(double_tape_pointer) = OpenAD_lin_83
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_acc_16
      double_tape_pointer = double_tape_pointer+1
      OpenAD_aux_12 = (M01%v+M23%v)
      OpenAD_lin_84 = OpenAD_aux_12
      OpenAD_lin_85 = LOC2%v
      LOC1%v = (LOC2%v*OpenAD_aux_12)
      OpenAD_lin_86 = M02%v
      OpenAD_lin_87 = GG%v
      R13%v = (LOC1%v+GG%v*M02%v)
      OpenAD_lin_88 = M13%v
      OpenAD_lin_89 = GG%v
      R02%v = (LOC1%v+GG%v*M13%v)
      OpenAD_lin_90 = LOC2%v
      OpenAD_lin_91 = D03%v
      OpenAD_lin_92 = M03%v
      OpenAD_lin_93 = GG%v
      R03%v = (D03%v*LOC2%v+GG%v*M03%v)
      OpenAD_lin_94 = LOC2%v
      OpenAD_lin_95 = D12%v
      OpenAD_lin_96 = M12%v
      OpenAD_lin_97 = GG%v
      R12%v = (D12%v*LOC2%v+GG%v*M12%v)
      OpenAD_lin_98 = TWO3RD
      G%v = (-(R13%v*TWO3RD))
      OpenAD_lin_99 = TWOSQRT3
      F%v = (R03%v*TWOSQRT3)
      H_OBJ8%v = (G%v-F%v)
      H_OBJ11%v = (F%v+G%v)
      OpenAD_acc_17 = (OpenAD_lin_98*INT((-1_w2f__i8)))
      double_tape(double_tape_pointer) = OpenAD_lin_84
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_85
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_86
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_87
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_88
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_89
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_90
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_91
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_92
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_93
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_94
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_95
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_96
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_97
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_99
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_acc_17
      double_tape_pointer = double_tape_pointer+1
      OpenAD_lin_100 = TWOSQRT3
      F%v = (R12%v*TWOSQRT3)
      H_OBJ12%v = (G%v-F%v)
      H_OBJ13%v = (F%v+G%v)
      H_OBJ14%v = (R13%v*1.2D+01)
      OpenAD_lin_101 = FOUR3RD
      G%v = (FOUR3RD*R02%v)
      double_tape(double_tape_pointer) = OpenAD_lin_100
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_101
      double_tape_pointer = double_tape_pointer+1
      OpenAD_aux_13 = (R03%v+R12%v)
      OpenAD_lin_102 = SQRT3
      F%v = (SQRT3*OpenAD_aux_13)
      H_OBJ10%v = (G%v-F%v)
      H_OBJ6%v = (F%v+G%v)
      OpenAD_lin_103 = TWO3RD
      G%v = (R02%v*TWO3RD)
      double_tape(double_tape_pointer) = OpenAD_lin_103
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_102
      double_tape_pointer = double_tape_pointer+1
      OpenAD_aux_14 = (R03%v-R12%v)
      OpenAD_lin_104 = SQRT3
      F%v = (SQRT3*OpenAD_aux_14)
      H_OBJ9%v = (G%v-F%v)
      H_OBJ7%v = (F%v+G%v)
      MATR0%v = (G_OBJ1%v-G_OBJ0%v)
      OpenAD_aux_15 = (G_OBJ2%v*2.0D00-G_OBJ1%v-G_OBJ2%v)
      OpenAD_lin_105 = SQRT3
      MATR1%v = (SQRT3*OpenAD_aux_15)
      MATR2%v = (G_OBJ4%v-G_OBJ3%v)
      OpenAD_aux_16 = (G_OBJ5%v*2.0D00-G_OBJ4%v-G_OBJ3%v)
      OpenAD_lin_106 = SQRT3
      MATR3%v = (SQRT3*OpenAD_aux_16)
      OpenAD_lin_107 = MATR3%v
      OpenAD_lin_108 = MATR0%v
      M03%v = (MATR0%v*MATR3%v)
      OpenAD_lin_109 = MATR2%v
      OpenAD_lin_110 = MATR1%v
      M12%v = (MATR1%v*MATR2%v)
      G%v = (M03%v-M12%v)
      D00%v = (M03%v*2.0D00)
      D11%v = (M12%v*2.0D00)
      OpenAD_lin_111 = MATR0%v
      OpenAD_lin_112 = MATR0%v
      M00%v = (MATR0%v*MATR0%v)
      OpenAD_lin_113 = MATR1%v
      OpenAD_lin_114 = MATR1%v
      M11%v = (MATR1%v*MATR1%v)
      OpenAD_lin_115 = MATR2%v
      OpenAD_lin_116 = MATR2%v
      M22%v = (MATR2%v*MATR2%v)
      OpenAD_lin_117 = MATR3%v
      OpenAD_lin_118 = MATR3%v
      M33%v = (MATR3%v*MATR3%v)
      OpenAD_lin_119 = M33%v
      OpenAD_lin_120 = M00%v
      D12%v = (M00%v*M33%v)
      OpenAD_lin_121 = M22%v
      OpenAD_lin_122 = M11%v
      D03%v = (M11%v*M22%v)
      OpenAD_acc_18 = (OpenAD_lin_111+OpenAD_lin_112)
      OpenAD_acc_19 = (OpenAD_lin_113+OpenAD_lin_114)
      OpenAD_acc_20 = (OpenAD_lin_115+OpenAD_lin_116)
      OpenAD_acc_21 = (OpenAD_lin_117+OpenAD_lin_118)
      double_tape(double_tape_pointer) = OpenAD_acc_18
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_acc_20
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_104
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_105
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_106
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_107
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_108
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_109
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_110
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_acc_19
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_acc_21
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_119
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_120
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_121
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_122
      double_tape_pointer = double_tape_pointer+1
      F%v = (D03%v+D12%v)
      OpenAD_aux_17 = (1.0D00/G%v)
      OpenAD_lin_124 = (-(1.0D00/(G%v*G%v)))
      OpenAD_lin_123 = A
      LOC1%v = (A*OpenAD_aux_17)
      OpenAD_lin_125 = LOC1%v
      OpenAD_lin_126 = F%v
      OBJ%v = (F%v*LOC1%v)
      OpenAD_aux_19 = (G%v*G%v)
      OpenAD_aux_18 = (1.0D00/OpenAD_aux_19)
      OpenAD_lin_129 = G%v
      OpenAD_lin_130 = G%v
      OpenAD_lin_128 = (-(1.0D00/(OpenAD_aux_19*OpenAD_aux_19)))
      OpenAD_lin_127 = AB
      LOC2%v = (AB*OpenAD_aux_18)
      OpenAD_aux_20 = (AB*B)
      OpenAD_aux_23 = (G%v*G%v)
      OpenAD_aux_22 = (G%v*OpenAD_aux_23)
      OpenAD_aux_21 = (1.0D00/OpenAD_aux_22)
      OpenAD_lin_133 = OpenAD_aux_23
      OpenAD_lin_135 = G%v
      OpenAD_lin_136 = G%v
      OpenAD_lin_134 = G%v
      OpenAD_lin_132 = (-(1.0D00/(OpenAD_aux_22*OpenAD_aux_22)))
      OpenAD_lin_131 = OpenAD_aux_20
      GG%v = (OpenAD_aux_20*OpenAD_aux_21)
      OpenAD_lin_137 = LOC2%v
      OpenAD_lin_138 = F%v
      G%v = (F%v*LOC2%v)
      OpenAD_acc_22 = (OpenAD_lin_124*OpenAD_lin_123)
      OpenAD_acc_23 = ((OpenAD_lin_133+(OpenAD_lin_135+OpenAD_lin_136)*O
     +penAD_lin_134)*OpenAD_lin_132*OpenAD_lin_131)
      OpenAD_acc_24 = ((OpenAD_lin_129+OpenAD_lin_130)*OpenAD_lin_128*Op
     +enAD_lin_127)
      double_tape(double_tape_pointer) = OpenAD_acc_22
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_125
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_126
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_acc_24
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_137
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_138
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_acc_23
      double_tape_pointer = double_tape_pointer+1
      F%v = (LOC1%v*2.0D00)
      OpenAD_lin_139 = MATR0%v
      OpenAD_lin_140 = F%v
      OpenAD_lin_141 = MATR3%v
      OpenAD_lin_142 = G%v
      ADJ_M0%v = (F%v*MATR0%v+G%v*MATR3%v)
      OpenAD_lin_143 = MATR1%v
      OpenAD_lin_144 = F%v
      OpenAD_lin_145 = MATR2%v
      OpenAD_lin_146 = G%v
      ADJ_M1%v = (F%v*MATR1%v-G%v*MATR2%v)
      OpenAD_lin_147 = MATR2%v
      OpenAD_lin_148 = F%v
      OpenAD_lin_149 = MATR1%v
      OpenAD_lin_150 = G%v
      ADJ_M2%v = (F%v*MATR2%v-G%v*MATR1%v)
      OpenAD_lin_151 = MATR3%v
      OpenAD_lin_152 = F%v
      OpenAD_lin_153 = MATR0%v
      OpenAD_lin_154 = G%v
      ADJ_M3%v = (F%v*MATR3%v+G%v*MATR0%v)
      OpenAD_lin_155 = SQRT3
      LOC1%v = (ADJ_M1%v*SQRT3)
      G_OBJ0%v = (G_OBJ0%v-ADJ_M0%v-LOC1%v)
      G_OBJ1%v = (ADJ_M0%v+G_OBJ1%v-LOC1%v)
      G_OBJ2%v = (G_OBJ1%v+LOC1%v*2.0D00)
      OpenAD_acc_25 = (2.0D00*OpenAD_lin_139)
      OpenAD_acc_26 = (2.0D00*OpenAD_lin_143)
      OpenAD_acc_27 = (OpenAD_lin_145*INT((-1_w2f__i8)))
      OpenAD_acc_28 = (OpenAD_lin_146*INT((-1_w2f__i8)))
      OpenAD_acc_29 = (2.0D00*OpenAD_lin_147)
      OpenAD_acc_30 = (OpenAD_lin_149*INT((-1_w2f__i8)))
      OpenAD_acc_31 = (OpenAD_lin_150*INT((-1_w2f__i8)))
      OpenAD_acc_32 = (2.0D00*OpenAD_lin_151)
      double_tape(double_tape_pointer) = OpenAD_lin_140
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_acc_25
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_141
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_142
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_144
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_acc_26
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_acc_27
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_acc_28
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_148
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_acc_29
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_acc_30
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_acc_31
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_152
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_acc_32
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_153
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_154
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_155
      double_tape_pointer = double_tape_pointer+1
      OpenAD_lin_156 = SQRT3
      LOC1%v = (ADJ_M3%v*SQRT3)
      G_OBJ3%v = (G_OBJ3%v-ADJ_M2%v-LOC1%v)
      G_OBJ4%v = (ADJ_M2%v+G_OBJ4%v-LOC1%v)
      G_OBJ5%v = (G_OBJ5%v+LOC1%v*2.0D00)
      LOC2%v = (LOC2%v*2.0D00)
      OpenAD_lin_157 = LOC2%v
      OpenAD_lin_158 = D00%v
      OpenAD_lin_159 = M33%v
      OpenAD_lin_160 = GG%v
      R00%v = (D00%v*LOC2%v+GG%v*M33%v)
      OpenAD_lin_161 = LOC2%v
      OpenAD_lin_162 = D11%v
      OpenAD_lin_163 = M22%v
      OpenAD_lin_164 = GG%v
      R11%v = (D11%v*LOC2%v+GG%v*M22%v)
      R22 = (D11%v*LOC2%v+GG%v*M11%v)
      R33 = (D00%v*LOC2%v+GG%v*M00%v)
      OpenAD_lin_165 = MATR1%v
      OpenAD_lin_166 = MATR0%v
      M01%v = (MATR0%v*MATR1%v)
      OpenAD_lin_167 = MATR2%v
      OpenAD_lin_168 = MATR0%v
      M02%v = (MATR0%v*MATR2%v)
      OpenAD_lin_169 = MATR2%v
      OpenAD_lin_170 = MATR1%v
      M12%v = (MATR1%v*MATR2%v)
      OpenAD_lin_171 = MATR3%v
      OpenAD_lin_172 = MATR1%v
      M13%v = (MATR1%v*MATR3%v)
      OpenAD_lin_173 = MATR3%v
      OpenAD_lin_174 = MATR2%v
      M23%v = (MATR2%v*MATR3%v)
      OpenAD_aux_24 = (M02%v+M13%v)
      OpenAD_lin_175 = OpenAD_aux_24
      OpenAD_lin_176 = LOC2%v
      D01%v = (LOC2%v*OpenAD_aux_24)
      double_tape(double_tape_pointer) = OpenAD_lin_156
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_165
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_166
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_167
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_168
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_169
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_170
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_171
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_172
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_173
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_174
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_157
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_158
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_159
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_160
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_161
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_162
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_163
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_164
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_175
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_176
      double_tape_pointer = double_tape_pointer+1
      OpenAD_lin_177 = THIRD
      LOC1%v = (R11%v*THIRD)
      OpenAD_aux_25 = (D01%v+GG%v*M23%v)
      OpenAD_lin_179 = M23%v
      OpenAD_lin_180 = GG%v
      OpenAD_lin_178 = TWOSQRT3
      F%v = (TWOSQRT3*OpenAD_aux_25)
      G%v = (LOC1%v+R00%v)
      H_OBJ1%v = (H_OBJ1%v+LOC1%v-R00%v)
      H_OBJ0%v = (F%v+G%v+H_OBJ0%v)
      H_OBJ3%v = (G%v+H_OBJ3%v-F%v)
      double_tape(double_tape_pointer) = OpenAD_lin_177
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_179
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_180
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_178
      double_tape_pointer = double_tape_pointer+1
      OpenAD_lin_181 = TWO3RD
      LOC1%v = (-(R11%v*TWO3RD))
      H_OBJ2%v = (H_OBJ2%v+LOC1%v-F%v)
      H_OBJ4%v = (F%v+H_OBJ4%v+LOC1%v)
      OpenAD_lin_182 = FOUR3RD
      H_OBJ5%v = (H_OBJ5%v+FOUR3RD*R11%v)
      OpenAD_acc_33 = (OpenAD_lin_181*INT((-1_w2f__i8)))
      double_tape(double_tape_pointer) = OpenAD_acc_33
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_182
      double_tape_pointer = double_tape_pointer+1
      OpenAD_lin_183 = THIRD
      LOC1%v = (R00%v*THIRD)
      OpenAD_aux_26 = (D01%v+GG%v*M01%v)
      OpenAD_lin_185 = M01%v
      OpenAD_lin_186 = GG%v
      OpenAD_lin_184 = TWOSQRT3
      F%v = (TWOSQRT3*OpenAD_aux_26)
      G%v = (LOC1%v+R11%v)
      H_OBJ16%v = (H_OBJ16%v+LOC1%v-R11%v)
      H_OBJ15%v = (F%v+G%v+H_OBJ15%v)
      H_OBJ18%v = (G%v+H_OBJ18%v-F%v)
      double_tape(double_tape_pointer) = OpenAD_lin_183
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_185
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_186
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_184
      double_tape_pointer = double_tape_pointer+1
      OpenAD_lin_187 = TWO3RD
      LOC1%v = (-(R00%v*TWO3RD))
      H_OBJ17%v = (H_OBJ17%v+LOC1%v-F%v)
      H_OBJ19%v = (F%v+H_OBJ19%v+LOC1%v)
      OpenAD_lin_188 = FOUR3RD
      H_OBJ20%v = (H_OBJ20%v+FOUR3RD*R00%v)
      OpenAD_acc_34 = (OpenAD_lin_187*INT((-1_w2f__i8)))
      double_tape(double_tape_pointer) = OpenAD_acc_34
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_188
      double_tape_pointer = double_tape_pointer+1
      OpenAD_aux_27 = (M01%v+M23%v)
      OpenAD_lin_189 = OpenAD_aux_27
      OpenAD_lin_190 = LOC2%v
      LOC1%v = (LOC2%v*OpenAD_aux_27)
      OpenAD_lin_191 = M02%v
      OpenAD_lin_192 = GG%v
      R13%v = (LOC1%v+GG%v*M02%v)
      OpenAD_lin_193 = M13%v
      OpenAD_lin_194 = GG%v
      R02%v = (LOC1%v+GG%v*M13%v)
      OpenAD_lin_195 = LOC2%v
      OpenAD_lin_196 = D03%v
      OpenAD_lin_197 = M03%v
      OpenAD_lin_198 = GG%v
      R03%v = (D03%v*LOC2%v+GG%v*M03%v)
      OpenAD_lin_199 = LOC2%v
      OpenAD_lin_200 = D12%v
      OpenAD_lin_201 = M12%v
      OpenAD_lin_202 = GG%v
      R12%v = (D12%v*LOC2%v+GG%v*M12%v)
      OpenAD_lin_203 = TWO3RD
      G%v = (-(R13%v*TWO3RD))
      OpenAD_lin_204 = TWOSQRT3
      F%v = (R03%v*TWOSQRT3)
      H_OBJ8%v = (G%v+H_OBJ8%v-F%v)
      H_OBJ11%v = (F%v+G%v+H_OBJ11%v)
      OpenAD_acc_35 = (OpenAD_lin_203*INT((-1_w2f__i8)))
      double_tape(double_tape_pointer) = OpenAD_lin_189
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_190
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_191
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_192
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_193
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_194
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_195
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_196
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_197
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_198
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_199
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_200
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_201
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_202
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_204
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_acc_35
      double_tape_pointer = double_tape_pointer+1
      OpenAD_lin_205 = TWOSQRT3
      F%v = (R12%v*TWOSQRT3)
      H_OBJ12%v = (G%v+H_OBJ12%v-F%v)
      H_OBJ13%v = (F%v+G%v+H_OBJ13%v)
      H_OBJ14%v = (H_OBJ14%v+R13%v*1.2D+01)
      OpenAD_lin_206 = FOUR3RD
      G%v = (FOUR3RD*R02%v)
      double_tape(double_tape_pointer) = OpenAD_lin_205
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_206
      double_tape_pointer = double_tape_pointer+1
      OpenAD_aux_28 = (R03%v+R12%v)
      OpenAD_lin_207 = SQRT3
      F%v = (SQRT3*OpenAD_aux_28)
      H_OBJ10%v = (G%v+H_OBJ10%v-F%v)
      H_OBJ6%v = (F%v+G%v+H_OBJ6%v)
      OpenAD_lin_208 = TWO3RD
      G%v = (R02%v*TWO3RD)
      double_tape(double_tape_pointer) = OpenAD_lin_208
      double_tape_pointer = double_tape_pointer+1
      double_tape(double_tape_pointer) = OpenAD_lin_207
      double_tape_pointer = double_tape_pointer+1
      OpenAD_aux_29 = (R03%v-R12%v)
      OpenAD_lin_209 = SQRT3
      F%v = (SQRT3*OpenAD_aux_29)
      H_OBJ9%v = (G%v+H_OBJ9%v-F%v)
      H_OBJ7%v = (F%v+G%v+H_OBJ7%v)
      Y01%v = OBJ%v
      Y02%v = G_OBJ0%v
      Y03%v = G_OBJ1%v
      Y04%v = G_OBJ2%v
      Y05%v = G_OBJ3%v
      Y06%v = G_OBJ4%v
      Y07%v = G_OBJ5%v
      Y08%v = H_OBJ0%v
      Y09%v = H_OBJ1%v
      Y10%v = H_OBJ2%v
      Y11%v = H_OBJ3%v
      Y12%v = H_OBJ4%v
      Y13%v = H_OBJ5%v
      Y14%v = H_OBJ6%v
      Y15%v = H_OBJ7%v
      Y16%v = H_OBJ8%v
      Y17%v = H_OBJ9%v
      Y18%v = H_OBJ10%v
      Y19%v = H_OBJ11%v
      Y20%v = H_OBJ12%v
      Y21%v = H_OBJ13%v
      Y22%v = H_OBJ14%v
      Y23%v = H_OBJ15%v
      Y24%v = H_OBJ16%v
      Y25%v = H_OBJ17%v
      Y26%v = H_OBJ18%v
      Y27%v = H_OBJ19%v
      Y28%v = H_OBJ20%v
      double_tape(double_tape_pointer) = OpenAD_lin_209
      double_tape_pointer = double_tape_pointer+1
          end if
          if (our_rev_mode%adjoint) then
C adjoint
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_0 = double_tape(double_tape_pointer)
      F%d = F%d-Y17%d
      H_OBJ9%d = H_OBJ9%d+Y17%d
      G%d = G%d+Y17%d
      Y17%d = 0.0d0
      H_OBJ7%d = H_OBJ7%d+Y15%d
      G%d = G%d+Y15%d
      F%d = F%d+Y15%d
      Y15%d = 0.0d0
      OpenAD_prp_49%d = OpenAD_prp_49%d+F%d*(OpenAD_Symbol_0)
      F%d = 0.0d0
      H_OBJ20%d = H_OBJ20%d+Y28%d
      Y28%d = 0.0d0
      H_OBJ19%d = H_OBJ19%d+Y27%d
      Y27%d = 0.0d0
      H_OBJ18%d = H_OBJ18%d+Y26%d
      Y26%d = 0.0d0
      H_OBJ17%d = H_OBJ17%d+Y25%d
      Y25%d = 0.0d0
      H_OBJ16%d = H_OBJ16%d+Y24%d
      Y24%d = 0.0d0
      H_OBJ15%d = H_OBJ15%d+Y23%d
      Y23%d = 0.0d0
      H_OBJ14%d = H_OBJ14%d+Y22%d
      Y22%d = 0.0d0
      H_OBJ13%d = H_OBJ13%d+Y21%d
      Y21%d = 0.0d0
      H_OBJ12%d = H_OBJ12%d+Y20%d
      Y20%d = 0.0d0
      H_OBJ11%d = H_OBJ11%d+Y19%d
      Y19%d = 0.0d0
      H_OBJ10%d = H_OBJ10%d+Y18%d
      Y18%d = 0.0d0
      H_OBJ8%d = H_OBJ8%d+Y16%d
      Y16%d = 0.0d0
      H_OBJ6%d = H_OBJ6%d+Y14%d
      Y14%d = 0.0d0
      H_OBJ5%d = H_OBJ5%d+Y13%d
      Y13%d = 0.0d0
      H_OBJ4%d = H_OBJ4%d+Y12%d
      Y12%d = 0.0d0
      H_OBJ3%d = H_OBJ3%d+Y11%d
      Y11%d = 0.0d0
      H_OBJ2%d = H_OBJ2%d+Y10%d
      Y10%d = 0.0d0
      H_OBJ1%d = H_OBJ1%d+Y09%d
      Y09%d = 0.0d0
      H_OBJ0%d = H_OBJ0%d+Y08%d
      Y08%d = 0.0d0
      G_OBJ5%d = G_OBJ5%d+Y07%d
      Y07%d = 0.0d0
      G_OBJ4%d = G_OBJ4%d+Y06%d
      Y06%d = 0.0d0
      G_OBJ3%d = G_OBJ3%d+Y05%d
      Y05%d = 0.0d0
      G_OBJ2%d = G_OBJ2%d+Y04%d
      Y04%d = 0.0d0
      G_OBJ1%d = G_OBJ1%d+Y03%d
      Y03%d = 0.0d0
      G_OBJ0%d = G_OBJ0%d+Y02%d
      Y02%d = 0.0d0
      OBJ%d = OBJ%d+Y01%d
      Y01%d = 0.0d0
      R12%d = R12%d-OpenAD_prp_49%d
      R03%d = R03%d+OpenAD_prp_49%d
      OpenAD_prp_49%d = 0.0d0
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_1 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_2 = double_tape(double_tape_pointer)
      OpenAD_prp_47%d = OpenAD_prp_47%d+H_OBJ6%d
      OpenAD_prp_45%d = OpenAD_prp_45%d+H_OBJ6%d
      F%d = F%d+H_OBJ6%d
      H_OBJ6%d = 0.0d0
      F%d = F%d-H_OBJ10%d
      OpenAD_prp_46%d = OpenAD_prp_46%d+H_OBJ10%d
      OpenAD_prp_45%d = OpenAD_prp_45%d+H_OBJ10%d
      H_OBJ10%d = 0.0d0
      OpenAD_prp_48%d = OpenAD_prp_48%d+F%d*(OpenAD_Symbol_1)
      F%d = 0.0d0
      R02%d = R02%d+G%d*(OpenAD_Symbol_2)
      G%d = 0.0d0
      R12%d = R12%d+OpenAD_prp_48%d
      R03%d = R03%d+OpenAD_prp_48%d
      OpenAD_prp_48%d = 0.0d0
      H_OBJ6%d = H_OBJ6%d+OpenAD_prp_47%d
      OpenAD_prp_47%d = 0.0d0
      H_OBJ10%d = H_OBJ10%d+OpenAD_prp_46%d
      OpenAD_prp_46%d = 0.0d0
      G%d = G%d+OpenAD_prp_45%d
      OpenAD_prp_45%d = 0.0d0
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_3 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_4 = double_tape(double_tape_pointer)
      R13%d = R13%d+H_OBJ14%d*(1.2D+01)
      OpenAD_prp_44%d = OpenAD_prp_44%d+H_OBJ14%d
      H_OBJ14%d = 0.0d0
      OpenAD_prp_43%d = OpenAD_prp_43%d+H_OBJ13%d
      OpenAD_prp_41%d = OpenAD_prp_41%d+H_OBJ13%d
      F%d = F%d+H_OBJ13%d
      H_OBJ13%d = 0.0d0
      F%d = F%d-H_OBJ12%d
      OpenAD_prp_42%d = OpenAD_prp_42%d+H_OBJ12%d
      OpenAD_prp_41%d = OpenAD_prp_41%d+H_OBJ12%d
      H_OBJ12%d = 0.0d0
      R02%d = R02%d+G%d*(OpenAD_Symbol_3)
      G%d = 0.0d0
      R12%d = R12%d+F%d*(OpenAD_Symbol_4)
      F%d = 0.0d0
      H_OBJ14%d = H_OBJ14%d+OpenAD_prp_44%d
      OpenAD_prp_44%d = 0.0d0
      H_OBJ13%d = H_OBJ13%d+OpenAD_prp_43%d
      OpenAD_prp_43%d = 0.0d0
      H_OBJ12%d = H_OBJ12%d+OpenAD_prp_42%d
      OpenAD_prp_42%d = 0.0d0
      G%d = G%d+OpenAD_prp_41%d
      OpenAD_prp_41%d = 0.0d0
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_5 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_6 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_7 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_8 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_9 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_10 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_11 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_12 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_13 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_14 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_15 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_16 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_17 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_18 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_19 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_20 = double_tape(double_tape_pointer)
      OpenAD_prp_39%d = OpenAD_prp_39%d+H_OBJ11%d
      G%d = G%d+H_OBJ11%d
      F%d = F%d+H_OBJ11%d
      H_OBJ11%d = 0.0d0
      F%d = F%d-H_OBJ8%d
      OpenAD_prp_38%d = OpenAD_prp_38%d+H_OBJ8%d
      G%d = G%d+H_OBJ8%d
      H_OBJ8%d = 0.0d0
      R13%d = R13%d+G%d*(OpenAD_Symbol_5)
      G%d = 0.0d0
      R03%d = R03%d+F%d*(OpenAD_Symbol_6)
      F%d = 0.0d0
      M12%d = M12%d+R12%d*(OpenAD_Symbol_7)
      GG%d = GG%d+R12%d*(OpenAD_Symbol_8)
      LOC2%d = LOC2%d+R12%d*(OpenAD_Symbol_9)
      D12%d = D12%d+R12%d*(OpenAD_Symbol_10)
      R12%d = 0.0d0
      M03%d = M03%d+R03%d*(OpenAD_Symbol_11)
      GG%d = GG%d+R03%d*(OpenAD_Symbol_12)
      LOC2%d = LOC2%d+R03%d*(OpenAD_Symbol_13)
      D03%d = D03%d+R03%d*(OpenAD_Symbol_14)
      R03%d = 0.0d0
      M13%d = M13%d+R02%d*(OpenAD_Symbol_15)
      GG%d = GG%d+R02%d*(OpenAD_Symbol_16)
      LOC1%d = LOC1%d+R02%d
      R02%d = 0.0d0
      M02%d = M02%d+R13%d*(OpenAD_Symbol_17)
      GG%d = GG%d+R13%d*(OpenAD_Symbol_18)
      LOC1%d = LOC1%d+R13%d
      R13%d = 0.0d0
      OpenAD_prp_40%d = OpenAD_prp_40%d+LOC1%d*(OpenAD_Symbol_19)
      LOC2%d = LOC2%d+LOC1%d*(OpenAD_Symbol_20)
      LOC1%d = 0.0d0
      M23%d = M23%d+OpenAD_prp_40%d
      M01%d = M01%d+OpenAD_prp_40%d
      OpenAD_prp_40%d = 0.0d0
      H_OBJ11%d = H_OBJ11%d+OpenAD_prp_39%d
      OpenAD_prp_39%d = 0.0d0
      H_OBJ8%d = H_OBJ8%d+OpenAD_prp_38%d
      OpenAD_prp_38%d = 0.0d0
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_21 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_22 = double_tape(double_tape_pointer)
      LOC1%d = LOC1%d+H_OBJ19%d
      OpenAD_prp_36%d = OpenAD_prp_36%d+H_OBJ19%d
      F%d = F%d+H_OBJ19%d
      H_OBJ19%d = 0.0d0
      F%d = F%d-H_OBJ17%d
      LOC1%d = LOC1%d+H_OBJ17%d
      OpenAD_prp_35%d = OpenAD_prp_35%d+H_OBJ17%d
      H_OBJ17%d = 0.0d0
      R00%d = R00%d+H_OBJ20%d*(OpenAD_Symbol_21)
      OpenAD_prp_37%d = OpenAD_prp_37%d+H_OBJ20%d
      H_OBJ20%d = 0.0d0
      R00%d = R00%d+LOC1%d*(OpenAD_Symbol_22)
      LOC1%d = 0.0d0
      H_OBJ20%d = H_OBJ20%d+OpenAD_prp_37%d
      OpenAD_prp_37%d = 0.0d0
      H_OBJ19%d = H_OBJ19%d+OpenAD_prp_36%d
      OpenAD_prp_36%d = 0.0d0
      H_OBJ17%d = H_OBJ17%d+OpenAD_prp_35%d
      OpenAD_prp_35%d = 0.0d0
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_23 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_24 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_25 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_26 = double_tape(double_tape_pointer)
      F%d = F%d-H_OBJ18%d
      OpenAD_prp_33%d = OpenAD_prp_33%d+H_OBJ18%d
      G%d = G%d+H_OBJ18%d
      H_OBJ18%d = 0.0d0
      OpenAD_prp_32%d = OpenAD_prp_32%d+H_OBJ15%d
      G%d = G%d+H_OBJ15%d
      F%d = F%d+H_OBJ15%d
      H_OBJ15%d = 0.0d0
      OpenAD_prp_34%d = OpenAD_prp_34%d+F%d*(OpenAD_Symbol_23)
      F%d = 0.0d0
      R11%d = R11%d-H_OBJ16%d
      LOC1%d = LOC1%d+H_OBJ16%d
      OpenAD_prp_31%d = OpenAD_prp_31%d+H_OBJ16%d
      H_OBJ16%d = 0.0d0
      M01%d = M01%d+OpenAD_prp_34%d*(OpenAD_Symbol_24)
      GG%d = GG%d+OpenAD_prp_34%d*(OpenAD_Symbol_25)
      D01%d = D01%d+OpenAD_prp_34%d
      OpenAD_prp_34%d = 0.0d0
      R11%d = R11%d+G%d
      LOC1%d = LOC1%d+G%d
      G%d = 0.0d0
      R00%d = R00%d+LOC1%d*(OpenAD_Symbol_26)
      LOC1%d = 0.0d0
      H_OBJ18%d = H_OBJ18%d+OpenAD_prp_33%d
      OpenAD_prp_33%d = 0.0d0
      H_OBJ15%d = H_OBJ15%d+OpenAD_prp_32%d
      OpenAD_prp_32%d = 0.0d0
      H_OBJ16%d = H_OBJ16%d+OpenAD_prp_31%d
      OpenAD_prp_31%d = 0.0d0
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_27 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_28 = double_tape(double_tape_pointer)
      LOC1%d = LOC1%d+H_OBJ4%d
      OpenAD_prp_29%d = OpenAD_prp_29%d+H_OBJ4%d
      F%d = F%d+H_OBJ4%d
      H_OBJ4%d = 0.0d0
      F%d = F%d-H_OBJ2%d
      LOC1%d = LOC1%d+H_OBJ2%d
      OpenAD_prp_28%d = OpenAD_prp_28%d+H_OBJ2%d
      H_OBJ2%d = 0.0d0
      R11%d = R11%d+H_OBJ5%d*(OpenAD_Symbol_27)
      OpenAD_prp_30%d = OpenAD_prp_30%d+H_OBJ5%d
      H_OBJ5%d = 0.0d0
      R11%d = R11%d+LOC1%d*(OpenAD_Symbol_28)
      LOC1%d = 0.0d0
      H_OBJ5%d = H_OBJ5%d+OpenAD_prp_30%d
      OpenAD_prp_30%d = 0.0d0
      H_OBJ4%d = H_OBJ4%d+OpenAD_prp_29%d
      OpenAD_prp_29%d = 0.0d0
      H_OBJ2%d = H_OBJ2%d+OpenAD_prp_28%d
      OpenAD_prp_28%d = 0.0d0
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_29 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_30 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_31 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_32 = double_tape(double_tape_pointer)
      F%d = F%d-H_OBJ3%d
      OpenAD_prp_26%d = OpenAD_prp_26%d+H_OBJ3%d
      G%d = G%d+H_OBJ3%d
      H_OBJ3%d = 0.0d0
      OpenAD_prp_25%d = OpenAD_prp_25%d+H_OBJ0%d
      G%d = G%d+H_OBJ0%d
      F%d = F%d+H_OBJ0%d
      H_OBJ0%d = 0.0d0
      OpenAD_prp_27%d = OpenAD_prp_27%d+F%d*(OpenAD_Symbol_29)
      F%d = 0.0d0
      R00%d = R00%d-H_OBJ1%d
      LOC1%d = LOC1%d+H_OBJ1%d
      OpenAD_prp_24%d = OpenAD_prp_24%d+H_OBJ1%d
      H_OBJ1%d = 0.0d0
      M23%d = M23%d+OpenAD_prp_27%d*(OpenAD_Symbol_30)
      GG%d = GG%d+OpenAD_prp_27%d*(OpenAD_Symbol_31)
      D01%d = D01%d+OpenAD_prp_27%d
      OpenAD_prp_27%d = 0.0d0
      R00%d = R00%d+G%d
      LOC1%d = LOC1%d+G%d
      G%d = 0.0d0
      R11%d = R11%d+LOC1%d*(OpenAD_Symbol_32)
      LOC1%d = 0.0d0
      H_OBJ3%d = H_OBJ3%d+OpenAD_prp_26%d
      OpenAD_prp_26%d = 0.0d0
      H_OBJ0%d = H_OBJ0%d+OpenAD_prp_25%d
      OpenAD_prp_25%d = 0.0d0
      H_OBJ1%d = H_OBJ1%d+OpenAD_prp_24%d
      OpenAD_prp_24%d = 0.0d0
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_33 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_34 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_35 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_36 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_37 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_38 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_39 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_40 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_41 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_42 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_43 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_44 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_45 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_46 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_47 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_48 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_49 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_50 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_51 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_52 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_53 = double_tape(double_tape_pointer)
      OpenAD_prp_23%d = OpenAD_prp_23%d+D01%d*(OpenAD_Symbol_33)
      LOC2%d = LOC2%d+D01%d*(OpenAD_Symbol_34)
      D01%d = 0.0d0
      M22%d = M22%d+R11%d*(OpenAD_Symbol_35)
      GG%d = GG%d+R11%d*(OpenAD_Symbol_36)
      LOC2%d = LOC2%d+R11%d*(OpenAD_Symbol_37)
      D11%d = D11%d+R11%d*(OpenAD_Symbol_38)
      R11%d = 0.0d0
      M33%d = M33%d+R00%d*(OpenAD_Symbol_39)
      GG%d = GG%d+R00%d*(OpenAD_Symbol_40)
      LOC2%d = LOC2%d+R00%d*(OpenAD_Symbol_41)
      D00%d = D00%d+R00%d*(OpenAD_Symbol_42)
      R00%d = 0.0d0
      LOC1%d = LOC1%d+G_OBJ5%d*(2.0D00)
      OpenAD_prp_21%d = OpenAD_prp_21%d+G_OBJ5%d
      G_OBJ5%d = 0.0d0
      LOC1%d = LOC1%d-G_OBJ4%d
      OpenAD_prp_20%d = OpenAD_prp_20%d+G_OBJ4%d
      ADJ_M2%d = ADJ_M2%d+G_OBJ4%d
      G_OBJ4%d = 0.0d0
      ADJ_M2%d = ADJ_M2%d-G_OBJ3%d
      LOC1%d = LOC1%d-G_OBJ3%d
      OpenAD_prp_19%d = OpenAD_prp_19%d+G_OBJ3%d
      G_OBJ3%d = 0.0d0
      M13%d = M13%d+OpenAD_prp_23%d
      M02%d = M02%d+OpenAD_prp_23%d
      OpenAD_prp_23%d = 0.0d0
      MATR3%d = MATR3%d+M23%d*(OpenAD_Symbol_43)
      MATR2%d = MATR2%d+M23%d*(OpenAD_Symbol_44)
      M23%d = 0.0d0
      MATR3%d = MATR3%d+M13%d*(OpenAD_Symbol_45)
      MATR1%d = MATR1%d+M13%d*(OpenAD_Symbol_46)
      M13%d = 0.0d0
      MATR2%d = MATR2%d+M12%d*(OpenAD_Symbol_47)
      MATR1%d = MATR1%d+M12%d*(OpenAD_Symbol_48)
      M12%d = 0.0d0
      MATR2%d = MATR2%d+M02%d*(OpenAD_Symbol_49)
      MATR0%d = MATR0%d+M02%d*(OpenAD_Symbol_50)
      M02%d = 0.0d0
      MATR1%d = MATR1%d+M01%d*(OpenAD_Symbol_51)
      MATR0%d = MATR0%d+M01%d*(OpenAD_Symbol_52)
      M01%d = 0.0d0
      OpenAD_prp_22%d = OpenAD_prp_22%d+LOC2%d*(2.0D00)
      LOC2%d = 0.0d0
      ADJ_M3%d = ADJ_M3%d+LOC1%d*(OpenAD_Symbol_53)
      LOC1%d = 0.0d0
      LOC2%d = LOC2%d+OpenAD_prp_22%d
      OpenAD_prp_22%d = 0.0d0
      G_OBJ5%d = G_OBJ5%d+OpenAD_prp_21%d
      OpenAD_prp_21%d = 0.0d0
      G_OBJ4%d = G_OBJ4%d+OpenAD_prp_20%d
      OpenAD_prp_20%d = 0.0d0
      G_OBJ3%d = G_OBJ3%d+OpenAD_prp_19%d
      OpenAD_prp_19%d = 0.0d0
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_54 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_55 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_56 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_57 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_58 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_59 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_60 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_61 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_62 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_63 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_64 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_65 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_66 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_67 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_68 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_69 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_70 = double_tape(double_tape_pointer)
      LOC1%d = LOC1%d+G_OBJ2%d*(2.0D00)
      G_OBJ1%d = G_OBJ1%d+G_OBJ2%d
      G_OBJ2%d = 0.0d0
      LOC1%d = LOC1%d-G_OBJ1%d
      OpenAD_prp_18%d = OpenAD_prp_18%d+G_OBJ1%d
      ADJ_M0%d = ADJ_M0%d+G_OBJ1%d
      G_OBJ1%d = 0.0d0
      ADJ_M0%d = ADJ_M0%d-G_OBJ0%d
      LOC1%d = LOC1%d-G_OBJ0%d
      OpenAD_prp_17%d = OpenAD_prp_17%d+G_OBJ0%d
      G_OBJ0%d = 0.0d0
      ADJ_M1%d = ADJ_M1%d+LOC1%d*(OpenAD_Symbol_54)
      LOC1%d = 0.0d0
      MATR0%d = MATR0%d+ADJ_M3%d*(OpenAD_Symbol_55)
      G%d = G%d+ADJ_M3%d*(OpenAD_Symbol_56)
      OpenAD_prp_16%d = OpenAD_prp_16%d+ADJ_M3%d*(OpenAD_Symbol_57)
      MATR3%d = MATR3%d+ADJ_M3%d*(OpenAD_Symbol_58)
      ADJ_M3%d = 0.0d0
      MATR1%d = MATR1%d+ADJ_M2%d*(OpenAD_Symbol_59)
      G%d = G%d+ADJ_M2%d*(OpenAD_Symbol_60)
      OpenAD_prp_16%d = OpenAD_prp_16%d+ADJ_M2%d*(OpenAD_Symbol_61)
      MATR2%d = MATR2%d+ADJ_M2%d*(OpenAD_Symbol_62)
      ADJ_M2%d = 0.0d0
      MATR2%d = MATR2%d+ADJ_M1%d*(OpenAD_Symbol_63)
      G%d = G%d+ADJ_M1%d*(OpenAD_Symbol_64)
      OpenAD_prp_16%d = OpenAD_prp_16%d+ADJ_M1%d*(OpenAD_Symbol_65)
      MATR1%d = MATR1%d+ADJ_M1%d*(OpenAD_Symbol_66)
      ADJ_M1%d = 0.0d0
      MATR3%d = MATR3%d+ADJ_M0%d*(OpenAD_Symbol_67)
      G%d = G%d+ADJ_M0%d*(OpenAD_Symbol_68)
      OpenAD_prp_16%d = OpenAD_prp_16%d+ADJ_M0%d*(OpenAD_Symbol_69)
      MATR0%d = MATR0%d+ADJ_M0%d*(OpenAD_Symbol_70)
      ADJ_M0%d = 0.0d0
      G_OBJ1%d = G_OBJ1%d+OpenAD_prp_18%d
      OpenAD_prp_18%d = 0.0d0
      G_OBJ0%d = G_OBJ0%d+OpenAD_prp_17%d
      OpenAD_prp_17%d = 0.0d0
      LOC1%d = LOC1%d+OpenAD_prp_16%d
      OpenAD_prp_16%d = 0.0d0
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_71 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_72 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_73 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_74 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_75 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_76 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_77 = double_tape(double_tape_pointer)
      OpenAD_prp_15%d = OpenAD_prp_15%d+GG%d*(OpenAD_Symbol_71)
      GG%d = 0.0d0
      LOC2%d = LOC2%d+G%d*(OpenAD_Symbol_72)
      F%d = F%d+G%d*(OpenAD_Symbol_73)
      G%d = 0.0d0
      OpenAD_prp_15%d = OpenAD_prp_15%d+LOC2%d*(OpenAD_Symbol_74)
      LOC2%d = 0.0d0
      LOC1%d = LOC1%d+OBJ%d*(OpenAD_Symbol_75)
      F%d = F%d+OBJ%d*(OpenAD_Symbol_76)
      OBJ%d = 0.0d0
      OpenAD_prp_15%d = OpenAD_prp_15%d+LOC1%d*(OpenAD_Symbol_77)
      LOC1%d = 0.0d0
      D12%d = D12%d+F%d
      D03%d = D03%d+F%d
      F%d = 0.0d0
      G%d = G%d+OpenAD_prp_15%d
      OpenAD_prp_15%d = 0.0d0
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_78 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_79 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_80 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_81 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_82 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_83 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_84 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_85 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_86 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_87 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_88 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_89 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_90 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_91 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_92 = double_tape(double_tape_pointer)
      M22%d = M22%d+D03%d*(OpenAD_Symbol_78)
      M11%d = M11%d+D03%d*(OpenAD_Symbol_79)
      D03%d = 0.0d0
      M33%d = M33%d+D12%d*(OpenAD_Symbol_80)
      M00%d = M00%d+D12%d*(OpenAD_Symbol_81)
      D12%d = 0.0d0
      MATR3%d = MATR3%d+M33%d*(OpenAD_Symbol_82)
      M33%d = 0.0d0
      MATR1%d = MATR1%d+M11%d*(OpenAD_Symbol_83)
      M11%d = 0.0d0
      M12%d = M12%d+D11%d*(2.0D00)
      D11%d = 0.0d0
      M03%d = M03%d+D00%d*(2.0D00)
      D00%d = 0.0d0
      M12%d = M12%d-G%d
      M03%d = M03%d+G%d
      G%d = 0.0d0
      MATR2%d = MATR2%d+M12%d*(OpenAD_Symbol_84)
      MATR1%d = MATR1%d+M12%d*(OpenAD_Symbol_85)
      M12%d = 0.0d0
      MATR3%d = MATR3%d+M03%d*(OpenAD_Symbol_86)
      MATR0%d = MATR0%d+M03%d*(OpenAD_Symbol_87)
      M03%d = 0.0d0
      OpenAD_prp_14%d = OpenAD_prp_14%d+MATR3%d*(OpenAD_Symbol_88)
      MATR3%d = 0.0d0
      OpenAD_prp_13%d = OpenAD_prp_13%d+MATR1%d*(OpenAD_Symbol_89)
      MATR1%d = 0.0d0
      G_OBJ5%d = G_OBJ5%d+OpenAD_prp_14%d*(2.0D00)
      G_OBJ4%d = G_OBJ4%d-OpenAD_prp_14%d
      G_OBJ3%d = G_OBJ3%d-OpenAD_prp_14%d
      OpenAD_prp_14%d = 0.0d0
      G_OBJ2%d = G_OBJ2%d+OpenAD_prp_13%d*(1.0D00)
      G_OBJ1%d = G_OBJ1%d-OpenAD_prp_13%d
      OpenAD_prp_13%d = 0.0d0
      OpenAD_prp_11%d = OpenAD_prp_11%d+H_OBJ7%d
      F%d = F%d+H_OBJ7%d
      H_OBJ7%d = 0.0d0
      F%d = F%d-H_OBJ9%d
      OpenAD_prp_11%d = OpenAD_prp_11%d+H_OBJ9%d
      H_OBJ9%d = 0.0d0
      OpenAD_prp_12%d = OpenAD_prp_12%d+F%d*(OpenAD_Symbol_90)
      F%d = 0.0d0
      MATR2%d = MATR2%d+M22%d*(OpenAD_Symbol_91)
      M22%d = 0.0d0
      MATR0%d = MATR0%d+M00%d*(OpenAD_Symbol_92)
      M00%d = 0.0d0
      G_OBJ3%d = G_OBJ3%d-MATR2%d
      G_OBJ4%d = G_OBJ4%d+MATR2%d
      MATR2%d = 0.0d0
      G_OBJ0%d = G_OBJ0%d-MATR0%d
      G_OBJ1%d = G_OBJ1%d+MATR0%d
      MATR0%d = 0.0d0
      R12%d = R12%d-OpenAD_prp_12%d
      R03%d = R03%d+OpenAD_prp_12%d
      OpenAD_prp_12%d = 0.0d0
      G%d = G%d+OpenAD_prp_11%d
      OpenAD_prp_11%d = 0.0d0
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_93 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_94 = double_tape(double_tape_pointer)
      OpenAD_prp_9%d = OpenAD_prp_9%d+H_OBJ6%d
      F%d = F%d+H_OBJ6%d
      H_OBJ6%d = 0.0d0
      F%d = F%d-H_OBJ10%d
      OpenAD_prp_9%d = OpenAD_prp_9%d+H_OBJ10%d
      H_OBJ10%d = 0.0d0
      OpenAD_prp_10%d = OpenAD_prp_10%d+F%d*(OpenAD_Symbol_93)
      F%d = 0.0d0
      R02%d = R02%d+G%d*(OpenAD_Symbol_94)
      G%d = 0.0d0
      R12%d = R12%d+OpenAD_prp_10%d
      R03%d = R03%d+OpenAD_prp_10%d
      OpenAD_prp_10%d = 0.0d0
      G%d = G%d+OpenAD_prp_9%d
      OpenAD_prp_9%d = 0.0d0
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_95 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_96 = double_tape(double_tape_pointer)
      R02%d = R02%d+G%d*(OpenAD_Symbol_95)
      G%d = 0.0d0
      R13%d = R13%d+H_OBJ14%d*(1.2D+01)
      H_OBJ14%d = 0.0d0
      OpenAD_prp_8%d = OpenAD_prp_8%d+H_OBJ13%d
      F%d = F%d+H_OBJ13%d
      H_OBJ13%d = 0.0d0
      F%d = F%d-H_OBJ12%d
      OpenAD_prp_8%d = OpenAD_prp_8%d+H_OBJ12%d
      H_OBJ12%d = 0.0d0
      R12%d = R12%d+F%d*(OpenAD_Symbol_96)
      F%d = 0.0d0
      G%d = G%d+OpenAD_prp_8%d
      OpenAD_prp_8%d = 0.0d0
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_97 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_98 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_99 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_100 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_101 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_102 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_103 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_104 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_105 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_106 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_107 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_108 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_109 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_110 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_111 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_112 = double_tape(double_tape_pointer)
      G%d = G%d+H_OBJ11%d
      F%d = F%d+H_OBJ11%d
      H_OBJ11%d = 0.0d0
      F%d = F%d-H_OBJ8%d
      G%d = G%d+H_OBJ8%d
      H_OBJ8%d = 0.0d0
      R13%d = R13%d+G%d*(OpenAD_Symbol_97)
      G%d = 0.0d0
      R03%d = R03%d+F%d*(OpenAD_Symbol_98)
      F%d = 0.0d0
      M12%d = M12%d+R12%d*(OpenAD_Symbol_99)
      GG%d = GG%d+R12%d*(OpenAD_Symbol_100)
      LOC2%d = LOC2%d+R12%d*(OpenAD_Symbol_101)
      D12%d = D12%d+R12%d*(OpenAD_Symbol_102)
      R12%d = 0.0d0
      M03%d = M03%d+R03%d*(OpenAD_Symbol_103)
      GG%d = GG%d+R03%d*(OpenAD_Symbol_104)
      LOC2%d = LOC2%d+R03%d*(OpenAD_Symbol_105)
      D03%d = D03%d+R03%d*(OpenAD_Symbol_106)
      R03%d = 0.0d0
      M13%d = M13%d+R02%d*(OpenAD_Symbol_107)
      GG%d = GG%d+R02%d*(OpenAD_Symbol_108)
      LOC1%d = LOC1%d+R02%d
      R02%d = 0.0d0
      M02%d = M02%d+R13%d*(OpenAD_Symbol_109)
      GG%d = GG%d+R13%d*(OpenAD_Symbol_110)
      LOC1%d = LOC1%d+R13%d
      R13%d = 0.0d0
      OpenAD_prp_7%d = OpenAD_prp_7%d+LOC1%d*(OpenAD_Symbol_111)
      LOC2%d = LOC2%d+LOC1%d*(OpenAD_Symbol_112)
      LOC1%d = 0.0d0
      M23%d = M23%d+OpenAD_prp_7%d
      M01%d = M01%d+OpenAD_prp_7%d
      OpenAD_prp_7%d = 0.0d0
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_113 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_114 = double_tape(double_tape_pointer)
      LOC1%d = LOC1%d+H_OBJ19%d
      F%d = F%d+H_OBJ19%d
      H_OBJ19%d = 0.0d0
      F%d = F%d-H_OBJ17%d
      LOC1%d = LOC1%d+H_OBJ17%d
      H_OBJ17%d = 0.0d0
      R00%d = R00%d+LOC1%d*(OpenAD_Symbol_113)
      LOC1%d = 0.0d0
      R00%d = R00%d+H_OBJ20%d*(OpenAD_Symbol_114)
      H_OBJ20%d = 0.0d0
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_115 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_116 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_117 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_118 = double_tape(double_tape_pointer)
      F%d = F%d-H_OBJ18%d
      G%d = G%d+H_OBJ18%d
      H_OBJ18%d = 0.0d0
      G%d = G%d+H_OBJ15%d
      F%d = F%d+H_OBJ15%d
      H_OBJ15%d = 0.0d0
      OpenAD_prp_6%d = OpenAD_prp_6%d+F%d*(OpenAD_Symbol_115)
      F%d = 0.0d0
      M01%d = M01%d+OpenAD_prp_6%d*(OpenAD_Symbol_116)
      GG%d = GG%d+OpenAD_prp_6%d*(OpenAD_Symbol_117)
      D01%d = D01%d+OpenAD_prp_6%d
      OpenAD_prp_6%d = 0.0d0
      R11%d = R11%d-H_OBJ16%d
      LOC1%d = LOC1%d+H_OBJ16%d
      H_OBJ16%d = 0.0d0
      R11%d = R11%d+G%d
      LOC1%d = LOC1%d+G%d
      G%d = 0.0d0
      R00%d = R00%d+LOC1%d*(OpenAD_Symbol_118)
      LOC1%d = 0.0d0
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_119 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_120 = double_tape(double_tape_pointer)
      LOC1%d = LOC1%d+H_OBJ4%d
      F%d = F%d+H_OBJ4%d
      H_OBJ4%d = 0.0d0
      F%d = F%d-H_OBJ2%d
      LOC1%d = LOC1%d+H_OBJ2%d
      H_OBJ2%d = 0.0d0
      R11%d = R11%d+LOC1%d*(OpenAD_Symbol_119)
      LOC1%d = 0.0d0
      R11%d = R11%d+H_OBJ5%d*(OpenAD_Symbol_120)
      H_OBJ5%d = 0.0d0
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_121 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_122 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_123 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_124 = double_tape(double_tape_pointer)
      F%d = F%d-H_OBJ3%d
      G%d = G%d+H_OBJ3%d
      H_OBJ3%d = 0.0d0
      G%d = G%d+H_OBJ0%d
      F%d = F%d+H_OBJ0%d
      H_OBJ0%d = 0.0d0
      OpenAD_prp_5%d = OpenAD_prp_5%d+F%d*(OpenAD_Symbol_121)
      F%d = 0.0d0
      M23%d = M23%d+OpenAD_prp_5%d*(OpenAD_Symbol_122)
      GG%d = GG%d+OpenAD_prp_5%d*(OpenAD_Symbol_123)
      D01%d = D01%d+OpenAD_prp_5%d
      OpenAD_prp_5%d = 0.0d0
      R00%d = R00%d-H_OBJ1%d
      LOC1%d = LOC1%d+H_OBJ1%d
      H_OBJ1%d = 0.0d0
      R00%d = R00%d+G%d
      LOC1%d = LOC1%d+G%d
      G%d = 0.0d0
      R11%d = R11%d+LOC1%d*(OpenAD_Symbol_124)
      LOC1%d = 0.0d0
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_125 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_126 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_127 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_128 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_129 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_130 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_131 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_132 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_133 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_134 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_135 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_136 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_137 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_138 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_139 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_140 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_141 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_142 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_143 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_144 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_145 = double_tape(double_tape_pointer)
      OpenAD_prp_4%d = OpenAD_prp_4%d+D01%d*(OpenAD_Symbol_125)
      LOC2%d = LOC2%d+D01%d*(OpenAD_Symbol_126)
      D01%d = 0.0d0
      M22%d = M22%d+R11%d*(OpenAD_Symbol_127)
      GG%d = GG%d+R11%d*(OpenAD_Symbol_128)
      LOC2%d = LOC2%d+R11%d*(OpenAD_Symbol_129)
      D11%d = D11%d+R11%d*(OpenAD_Symbol_130)
      R11%d = 0.0d0
      M33%d = M33%d+R00%d*(OpenAD_Symbol_131)
      GG%d = GG%d+R00%d*(OpenAD_Symbol_132)
      LOC2%d = LOC2%d+R00%d*(OpenAD_Symbol_133)
      D00%d = D00%d+R00%d*(OpenAD_Symbol_134)
      R00%d = 0.0d0
      LOC1%d = LOC1%d-G_OBJ3%d
      ADJ_M2%d = ADJ_M2%d-G_OBJ3%d
      G_OBJ3%d = 0.0d0
      M13%d = M13%d+OpenAD_prp_4%d
      M02%d = M02%d+OpenAD_prp_4%d
      OpenAD_prp_4%d = 0.0d0
      MATR3%d = MATR3%d+M23%d*(OpenAD_Symbol_135)
      MATR2%d = MATR2%d+M23%d*(OpenAD_Symbol_136)
      M23%d = 0.0d0
      MATR3%d = MATR3%d+M13%d*(OpenAD_Symbol_137)
      MATR1%d = MATR1%d+M13%d*(OpenAD_Symbol_138)
      M13%d = 0.0d0
      MATR2%d = MATR2%d+M12%d*(OpenAD_Symbol_139)
      MATR1%d = MATR1%d+M12%d*(OpenAD_Symbol_140)
      M12%d = 0.0d0
      MATR2%d = MATR2%d+M02%d*(OpenAD_Symbol_141)
      MATR0%d = MATR0%d+M02%d*(OpenAD_Symbol_142)
      M02%d = 0.0d0
      MATR1%d = MATR1%d+M01%d*(OpenAD_Symbol_143)
      MATR0%d = MATR0%d+M01%d*(OpenAD_Symbol_144)
      M01%d = 0.0d0
      OpenAD_prp_3%d = OpenAD_prp_3%d+LOC2%d*(2.0D00)
      LOC2%d = 0.0d0
      LOC1%d = LOC1%d+G_OBJ5%d*(2.0D00)
      G_OBJ5%d = 0.0d0
      LOC1%d = LOC1%d-G_OBJ4%d
      ADJ_M2%d = ADJ_M2%d+G_OBJ4%d
      G_OBJ4%d = 0.0d0
      ADJ_M3%d = ADJ_M3%d+LOC1%d*(OpenAD_Symbol_145)
      LOC1%d = 0.0d0
      LOC2%d = LOC2%d+OpenAD_prp_3%d
      OpenAD_prp_3%d = 0.0d0
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_146 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_147 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_148 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_149 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_150 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_151 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_152 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_153 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_154 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_155 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_156 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_157 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_158 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_159 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_160 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_161 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_162 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_163 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_164 = double_tape(double_tape_pointer)
      LOC1%d = LOC1%d-G_OBJ0%d
      ADJ_M0%d = ADJ_M0%d-G_OBJ0%d
      G_OBJ0%d = 0.0d0
      LOC1%d = LOC1%d+G_OBJ2%d*(2.0D00)
      G_OBJ2%d = 0.0d0
      LOC1%d = LOC1%d-G_OBJ1%d
      ADJ_M0%d = ADJ_M0%d+G_OBJ1%d
      G_OBJ1%d = 0.0d0
      ADJ_M1%d = ADJ_M1%d+LOC1%d*(OpenAD_Symbol_146)
      LOC1%d = 0.0d0
      MATR0%d = MATR0%d+ADJ_M3%d*(OpenAD_Symbol_147)
      G%d = G%d+ADJ_M3%d*(OpenAD_Symbol_148)
      OpenAD_prp_2%d = OpenAD_prp_2%d+ADJ_M3%d*(OpenAD_Symbol_149)
      MATR3%d = MATR3%d+ADJ_M3%d*(OpenAD_Symbol_150)
      ADJ_M3%d = 0.0d0
      MATR1%d = MATR1%d+ADJ_M2%d*(OpenAD_Symbol_151)
      G%d = G%d+ADJ_M2%d*(OpenAD_Symbol_152)
      OpenAD_prp_2%d = OpenAD_prp_2%d+ADJ_M2%d*(OpenAD_Symbol_153)
      MATR2%d = MATR2%d+ADJ_M2%d*(OpenAD_Symbol_154)
      ADJ_M2%d = 0.0d0
      MATR2%d = MATR2%d+ADJ_M1%d*(OpenAD_Symbol_155)
      G%d = G%d+ADJ_M1%d*(OpenAD_Symbol_156)
      OpenAD_prp_2%d = OpenAD_prp_2%d+ADJ_M1%d*(OpenAD_Symbol_157)
      MATR1%d = MATR1%d+ADJ_M1%d*(OpenAD_Symbol_158)
      ADJ_M1%d = 0.0d0
      MATR3%d = MATR3%d+ADJ_M0%d*(OpenAD_Symbol_159)
      G%d = G%d+ADJ_M0%d*(OpenAD_Symbol_160)
      OpenAD_prp_2%d = OpenAD_prp_2%d+ADJ_M0%d*(OpenAD_Symbol_161)
      MATR0%d = MATR0%d+ADJ_M0%d*(OpenAD_Symbol_162)
      ADJ_M0%d = 0.0d0
      LOC2%d = LOC2%d+G%d*(OpenAD_Symbol_163)
      F%d = F%d+G%d*(OpenAD_Symbol_164)
      G%d = 0.0d0
      LOC1%d = LOC1%d+OpenAD_prp_2%d
      OpenAD_prp_2%d = 0.0d0
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_165 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_166 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_167 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_168 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_169 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_170 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_171 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_172 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_173 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_174 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_175 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_176 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_177 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_178 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_179 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_180 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_181 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_182 = double_tape(double_tape_pointer)
      double_tape_pointer = double_tape_pointer-1
      OpenAD_Symbol_183 = double_tape(double_tape_pointer)
      G%d = G%d+GG%d*(OpenAD_Symbol_165)
      GG%d = 0.0d0
      G%d = G%d+LOC2%d*(OpenAD_Symbol_166)
      LOC2%d = 0.0d0
      LOC1%d = LOC1%d+OBJ%d*(OpenAD_Symbol_167)
      F%d = F%d+OBJ%d*(OpenAD_Symbol_168)
      OBJ%d = 0.0d0
      G%d = G%d+LOC1%d*(OpenAD_Symbol_169)
      LOC1%d = 0.0d0
      D12%d = D12%d+F%d
      D03%d = D03%d+F%d
      F%d = 0.0d0
      M22%d = M22%d+D03%d*(OpenAD_Symbol_170)
      M11%d = M11%d+D03%d*(OpenAD_Symbol_171)
      D03%d = 0.0d0
      M33%d = M33%d+D12%d*(OpenAD_Symbol_172)
      M00%d = M00%d+D12%d*(OpenAD_Symbol_173)
      D12%d = 0.0d0
      MATR3%d = MATR3%d+M33%d*(OpenAD_Symbol_174)
      M33%d = 0.0d0
      MATR1%d = MATR1%d+M11%d*(OpenAD_Symbol_175)
      M11%d = 0.0d0
      M12%d = M12%d+D11%d*(2.0D00)
      D11%d = 0.0d0
      M03%d = M03%d+D00%d*(2.0D00)
      D00%d = 0.0d0
      M12%d = M12%d-G%d
      M03%d = M03%d+G%d
      G%d = 0.0d0
      MATR2%d = MATR2%d+M12%d*(OpenAD_Symbol_176)
      MATR1%d = MATR1%d+M12%d*(OpenAD_Symbol_177)
      M12%d = 0.0d0
      MATR3%d = MATR3%d+M03%d*(OpenAD_Symbol_178)
      MATR0%d = MATR0%d+M03%d*(OpenAD_Symbol_179)
      M03%d = 0.0d0
      OpenAD_prp_1%d = OpenAD_prp_1%d+MATR3%d*(OpenAD_Symbol_180)
      MATR3%d = 0.0d0
      OpenAD_prp_0%d = OpenAD_prp_0%d+MATR1%d*(OpenAD_Symbol_181)
      MATR1%d = 0.0d0
      X06%d = X06%d+OpenAD_prp_1%d*(2.0D00)
      X05%d = X05%d-OpenAD_prp_1%d
      X04%d = X04%d-OpenAD_prp_1%d
      OpenAD_prp_1%d = 0.0d0
      X03%d = X03%d+OpenAD_prp_0%d*(2.0D00)
      X02%d = X02%d-OpenAD_prp_0%d
      X01%d = X01%d-OpenAD_prp_0%d
      OpenAD_prp_0%d = 0.0d0
      MATR2%d = MATR2%d+M22%d*(OpenAD_Symbol_182)
      M22%d = 0.0d0
      MATR0%d = MATR0%d+M00%d*(OpenAD_Symbol_183)
      M00%d = 0.0d0
      X04%d = X04%d-MATR2%d
      X05%d = X05%d+MATR2%d
      MATR2%d = 0.0d0
      X01%d = X01%d-MATR0%d
      X02%d = X02%d+MATR0%d
      MATR0%d = 0.0d0
          end if
        end subroutine head
